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Ao Leitor 

A Micro Sistemas abriu uma corrferencia na Rede Brasileira de Teleinfbrm&tica 
(RBT), para tratar exclusivamente de assuntos relacionados com a revista. Com 
isso, mais de 180 BBS, espalhados pek) Brasil todo, passam a ecoar as 
mensagens, promogoes, debates, etc que irao compor tal espago. 

Nosso objeth/o 6 criar um ponto de contato ente os leitores e a equipe tecnica 
que produz a revista, bem mais dinamico e sistematico do que a propria MS. Rel 
d sua tradigao de manter os leitores sempie em dia com as novidades 
tecnologicas, na area de programagao, tal iniciartlva visa tambem um contato mais 
informal entre os leitores e a redagao. 

Se voce j a acessa de alguma forma um BBS, procure infoimar-se se o mesmo 
ecoa a rede RBT e se a conferencia Micro Sistemas jd estd funcionando d pie no 
vapor. Sera um imenso prazer encontra^o por Id. 

Nesta edigao voltamos ao tema dos fractals, que tern servido de base para 
inOmeras criagoes grdficas para multimidia. Vale a pena conferir. 



Renato D^iovani 
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CD-SHARE BRA: 



O terceiro CD da Serie 

A Kandpus informdtica langou por ocasiao da 80 . Fenasoft 
a terceira edigao do seu CD SHARE com 2.200 programas de 
livre circulagao na modalidade Shareware. Nesta edigao o CD- 
ROM traz 360 programas em portugues, 920 para eletronica e 
Rddio Amador, 480 para diagnose de micros, 150 programas 
para religiao, 180 jogosporaDOS e WINDOWS, 150 programas 
educacionais, um kit para BBS montado e funcional, programas 
de comunicagao para acessctr BBS e uma excelente selegao de 
multimidia internacional. Alguns dos destaques desta edigao sao 
o programa ESTOQWIN, um controle de estoque comfoto para 
Windows, incluso coma “LicengadeUso" gratuitonaaquisigdo 
do CD, a ultimaversao antivirus TBAV, diversos titulos emRPG( 
Role Playing Games ) e entreasmultimidias destaca-seo Unreal 
e um simulador de elementos quimicos. 

0 CD-SHARE BRA ainda conta com 5 esdigoes do jornal 
Eletronico Versao Zero e 3 da revista multimidia WarmNews. 

A empresa paranaense participou da FENASOFT como 
convidada de uma revista da drea de informdtica e durante o 

Novo ViruScan 

ViruScan, o antivirus de maior base instalada do mercado mundial, com 
proteges em mais de 40 milhoes de Workstations, esta ganhando a atualiza^ao de 
maior relevancia de toda a sua trajetoria de sucesso. Duas novas tecnologias para 
detecfao, identifica^ao e elimina^ao de virus denominada como Code Trace 
Scanning (CTS) e code Mix Scannig (CMS), destacao-se como as principals 
novidades do ViruScan 2.0, que a Compusul lan 90 u na fenasoft 94. 

Segundo Andre PitKowski.diretortecni co daCompusul.distribuidoraexciusiva 
do pacote anti-virus da McAfee Associates no Brasil, a tecnologia CTS permite ao 
ViruScan seguir qualquer fluxo de programa^ao ativo em memoria. Neste caso, o 
anti-virus ira rastrear o arquivo a procura de qualquer atitude “suspeita” que possa 
provocar atividade viral, capaz de corromper os dados armazenados no sistema. 
“Esta tecnologia tambem localiza virus novo ou desconhecido, seja ele polimorfico, 
encriptado ou mutante”, explica Pitkowsk, ao destacar que, assim, o usuario tera 
maior seguran^a com o anti-virus, pois o niimero de alarmes falsos sera reduzido 
para proximo de zero. 0 ViruScan 2.0 estara mais compacto, passando a existir em 
apenas dois modulos. A partir da tecnologia Code Mix scannig, o V shild continuara 
protegendo totalmente o sistema, enquanto que o scan ira rastrear e eliminar 
qualquer tipo de virus, englobando tambem fungao antes exercida pelo Clean-UP. 
“A consequencia direta e que o pacote ganhou em performance”, garante o diretor 
da Compulsul. “Com esta nova reengenharia de projeto, ViruScan 2.0 esta de tres 
a quatro vezes mais rapido que a versao 1 . 1 1 5 atualmente dispom'vel no mercado”. 

Outra novidade e que, agora, o anti-virus iraa consumir menos memoria. Para 
executar o Scan serao necessarios apenas 340 Kb, enquanto que o VShield, o unico 
modulo a ser instalado no disco rigido, vai ocupar somente 2 Kb de memoria 
convencional RAM. Entretanto, o VShield utilisara automaticamente qualquer 
quantidade de memoria estendida (XMS), espandia (EMS ), superior ou alta que o 
sistema protegido possuir. 



e lanqadona Fenasoft 

evento ofertou programas sharewere como um brinde especial 
aos novos assinantes da mesma no intuito de difundir ainda mais 
a cultura do Shareware no pais. 

Alem disso a empresa teve uma atuagao marcante no I 
Encontro Nacional de Operadores de BBS da BBT, evento 
paralelo realizado durante a FENASOFT, fazendo de seu stand 
um ponto de encontro para mais de 1 00 sysops e usuario s de BBS 
do pais inteiro, que aproveitam a ocasiao para adquirir o CD- 
SHARE a pregos reduzidos de maneira a aumentar o acervo de 
programas nacionais em suas BBS e as empresas participates . 
“Foi uma experiencia bastante vdlida e nos proporcionou a 
oportunidade de fazer novos contatoseampliaronosso mercado” 
- diz Maria do Carmo Zattar Struiving - diretora de Marketing 
da Kanopus que ja esta pensando em retonar ao evento em 1 995. 
O CD jd estd disponivel ao publico nas melhores casas do ramo 
emaiores informagdespodemserobtidasna Kandpus informdtica 
(041)222-0277. 

Microsul ja tem o 
Pentiun da Compaq 

A Microsul acaba derecebero rec6m langado DESKPRO 
XE 5.60 da Compaq. O modelo pentiun de 60 MHz 6 
indicadoparaaempresaonde a velocidadedoprocessamento 
seja vital para a eftcdcia das operates, como bancos e 
depariamentos financeiros ou at£ paracompbr sotosOes dc 
automaeao de escritdrios. “Para qut: se tenha uma id&a, este 
equpamento 6 capaz, em alguns casos, deagiiizarem 50% 
o tempo de processaraento das infom^Qes e, havendo 
redu^ao de tempo, existe uma consequente diininuicao de 
custosinternos”,afirmaFanChdiSheug,diretordaMicrosul. 

O Deskpro XE 5.60, al^n de ter maior velocidade dc 
jwocessamento, possui o controlador de vfdeoQ Visicm com 
local bus (1, 280 X 1 .024) e 1 Mbde VRAM exfrancivd para 
2 Mb. Outra caracterisdca 6 ja vir equipdo com “Enhanced 
Business Audio”, que permite, entrc outras cwsas, que o 
usudrio controle aplicativos pelo comando de voz. 

A Microsul foi escolhida a melhor revenda e a jwimcira 
a ser sclecionada como CTSC (Centro Tdcnico de suporte 
Compaq), pela quatklade da assistgncia t6cmca que jS 
prestava a seus clientes coiporativos. Oss Deskpro XE 5.60 

estao disponfvds para pronta entretga da Microsul. 
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ARQ UITETUR A COM HELIOS e representante 

MULTIPROCESSADOR exclusiva da Dyson 



► 



A 3COM acaba de ampliar sua famflia de roteadores high-end e 
multiprotocoloNETBuilderllparasuportarmultiplosprocessadores 
RISC, oferecendo ao mesmo tempo um senslvel aumento de perfor- 
mance, densidades de porta e confibllidade. Agora, a 3COM 
oferece aos seus usuSrios uma arquitetura multiprocessada unica e 
escallvel para a famflia NETBuilder n fomecendo mddulos de 
interface comuns software e capacidade de gerenciamento apregos 
compatfveis com esta linha. 

A nova arquitetura NETBuilder n MP (Multiprocessador) estard 
disponfvel para todos os chassis NETBuilder inclusive o novo 
NETBuilder II 8 Slot Extended Chassis, que oferece ampliagHo de 
capacidade de porta (atd 48 portas), confiabilidade superior e total 
compatibilidade com todos os m6dulos de I/O existentes. 0 novo 
chassis d& aos usudrios um aumento significativo na capacidade de 
porta e confiabilidade total, atravds de m6dulos hot-Swappable 
(podem ser trocados com equipamento em atividade), fomecimento 
redundante de energia e mem6ria flash, complementando a atual 
famflia de chassis NETBuilder H 4 e 8 slot de chassis. Todos os 
chassis NETBuilder n tem o mesmo design de backpane a 800 
Mbps e processador central RISC. A 3 COM tamb&n anunciou 
novas interfaces: ATM, 100 Mbps Ethernet, Token Ring de alta 
perffoemance, T1 channelized e ISDN Primary Rate (PR1). “Redes 
corporativas executando aplicagOes de missao critica requerem 
roteadores capazes de garantir estabilidade, performance e 
escalabilidade o tempo todo”, disse o vice-presidente de marketing 
das OperagOes de Sistemas de Rede da 3 COM. A arquitetura 
NETBuilder II MP oferece uma confiabilidade sem paralelo e uma 
capacidade que vai alem de todas as linhas de produto disponlveis 
hoje nos principais fomecedores do mercado”. 



A Helios, traditional fabricante de artigos escolares e para 
escritorio, entra definitivamente no segmento de informatica, 
trazendo para o Brasil a Dysan - uma das maiores fabricantes 
americanas de suprimentos com tecnologia de ponta para mldia 
magnetica. 0 acordo de intengoes firmado entreasduas empresas 
esta dividido em tres etapas: inicialmente serao comercializados 
pela Helius discos opticos, disquetes 8, 51/4,3 1 12 polegadas. 
0 segundo passo sera a montagem de um entreposto em Santos, 
facilitando e agilizando a importagao de suprimentos e a 
terceira fase inclui o langamento de novos produtos, como fitas 
de video ( VHS e Camcorder ) e audio. 

Roberto Sacchi, diretor comercial da Helius, ressalta que 
esse acordo comercial e importante, na medida em que o 
mercado de suprimento do Brasil movimenta numeros 
significativos - sao consumidos mensalmente 6 milhoes de 
disquetes e 50 mil fitas magneticas. “Nosso objetivo, em doze 
meses, e obter, respectivamente, uma participagao de 10% e 
12% nesses mercados, afirma. Segundo o diretor da Helius, a 
parceria vira a endossar a entrada da empresa no mercado de 
informatica, “ pois entraremos trazendo com exclusividade para 
o pals produtos com qualidade reconhecida em ambito mundial 
e ainda nao disponlveis no mercado national" , completa. 

A Helius, implantouno ano passado o “Projeto Informatica” , 
que cuminou na criagdo de uma nova divisao na empresa. Sua 
filosofia e trabalhar com protutos de alta tecnologia a pregos 
competitivos, com vendas direcionadas para revendas e 
distribuidores de suprimentos. A divisao de informatica deve 
fechar este ano representando 11% do faturamento global da 
empresa quefoi de US$ 17 milhoes em 93. 



APRENDA INFORMATICA 
SEM SAIR DE CASA 



CPRSO RAPIDO ECONOMICO E EFICAZ 

Sistema de apostilas. Bosta seguir os 
exerda'os e jrejngr diretomenle no seu PC 

C0MAHD0S TRADUZ1D0S PARA 0 NOSSO IDIOMA 
Acompqnhq disquete 5 1/4 com aerridos 

Estou enviando para Ricardo Flores, cheque 
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30.00 




’WordStar 5.0/6.0 
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’Lotus 123 


22.00 


iiiifaMi 


’Quattro Pro 


22.00 




’dBase III Plus Interativo 


22.00 


St S 


’dBase III Plus Programado 


22.00 


lylSl 


’Clipper 5.01 Basico 


22.00 




*Ventura Publisher - Edit. El. 


22.00 


l« 18 l 


’word 2.0 


30,00 


|m»| 


’Windows 3.1 


35.00 




*Visual Basic 


35.00 
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LIVROS 




Detesto Excel para Windows! versio 5 
Do pinico inicial ao prazer de usar 

QUE 

Editors Campus 

412 pdginas 

So a expressao"planilha eletronica” ja basta para assustar o 
iniciante em microinformatica. Mesmo com a planilha Excel, que 
tem todos os recursos do ambiente graficos do Windows, a situagao 
nao e muito diferente. Nao e raro encontrar usarios que detestam 
a tal planilha apenas porque nao conseguem o basico: digitar e 
editar dados, criando assim sua propria planilha. Dai o langamento 
Detesto Excel para Windows! da simpatica e divertidasSrie Detesto. 

Mantendo o estilo irreverente e simples de ensinartipico daserie 
-, Patrik J. Burns apresenta os conceitos basicos da versao 5.0 do 
Excel para Windows.com as telas do software em portugues. 

Da inicializagao a impressao de planilhas, o leitor aprendera a 
fazer alteragoes; abrir, fechar e excluir pastas de trabalho; imprimir 
a planilha; formatar a pasta de trabalho; editar, mover e copiar 
dados, entre varias outras agoes. 

Alem de dicas, exemplos e ilustragoes, o livro traz outra 
caracteristica dos livros da Serie: as divertidas historias em 
quadrinhos do conhecido cartunista americano Jeff McNelly, vencedor 
do Premio Pulitzer. 

Tambem faz parte da Serie os seguintes tftulos: Detesto PCs! 
(404 paginas); Detesto Windows! (380 paginas) e Detesto Word 
for Windows! (348 paginas) todos dentro do estilo de ensino 
simples, agraddvel e divertido. 



Redes de Computadores. 

Andrews. Tanenbaum. 

Editors Campus. 

786 pags. 

Este livro, uma introdugao 
as redes de computadores, 
enfatiza os protocolos e 
algoritmos das redes, desde a 
camada fisica ate a camada 
de aplicagoes, e desde as 
redes locais ate as redes de 
satelites. Partindosomentede 
umafamiiiaridadegeral com os 
sistemas de computadores e 
a programagao, redes de com- 
putadores apresenta todo o 
espectro dos protocolos basicos, os conceitos, os algoritmos, o 
software e as tecnologias. 

Esta edigao, revisada para refletir os Gltimos avangos na area, 
apresenta materil sobre LANs(inclusive a IEEE 802), ISDN (Inte- 
grated Services Digital Networks) e redes de fibras oticas. Ha 
tambem urn estudo detalhado das camadas superiores do modelo 
OSI (as camadas de transpose, sessao, apresentagao 
eaplicagoes),bem como extensa discussao sobre MAP, TOP e 
USENET. Entre os destaques do conteudo, incluem-se: 

A camada Fisica- A camada de Enlace de Dados 1-Acesso ao Meio 
A Camada de Enlace de Dados2- Protocolos- A Camada de Rede 
A Camada de Transported Camada de Apresentagao 
A Camada de Aplicagdes- Sugestoes de Leitura e Bibliografia 



WordPerfect para Windows 
versao 6 

Shelley O’Hara 
Editora Campus 

282 paginas 

Aprenda a usar o Word- 
Perfect da maneira mais facil 
com este mdtodo passo a 
passo, completamente ilus- 
trado. 

As ilustragoes que acom- 
panham o livro tornam o 
aprendizado do WordPerfect 
rapido e facil I 

WordPerfect para Windows, 
versao 6.0,6 o livro ideal para 
treinamento. 0 m6todo revolu- 
cionario da Serie da Rapido e Facil utiliza: 

Reprodugoes das telas, antes e depois dos exerctcios; notas de 
advertencia,"Opa", e dicas dos exrclcios; um guia de advertencia 
dos principais comandos; segoes de/evisao uteis; abordagem por 
tarefas ou por sequencia de exerclcios. 



As editoras interessadas em divulgar seus livros 
na revista Micro Sistemas, devem enviar, al6m do 
livro a ssr divuigado, tan reaiese e uma capa 
sobressalente, e assim qua for possivel o mesmo 
sera divuigado. 
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ALEX SOFT INFORMATICA 

R. Pedro de Toledo, 967 / 2 - V. Mariana - S. Paulo/SP - CEP 04039-032 (Prox. Est. Sta. Cruz do Metro) 



j Precoa (Consulte Promocdes) : 
ruilC / r«A | |Grav. em 5 'A DD (c/ Disquete) : R$ 1,20 

I'm 1 1 S7A 1 A!7Q I iGrav. em 5 V* HD (c/ Disquete) : R$ 1,70 
J I U- 1** I O l [correio (& cada 20 Disquetes) : R$ 2.3C 



Damos Garantia contra 
Defeitos de Grava^ao 
ou Virus 



EDIDOS: por Carta ou Teiefone de Segunda aSexta das 10:00 ds 18:30, S£bado das 10:00 As 15:00, por Fax recebemos seu pedido por 24 floras 
todos os dias. Relacione o Cbdigo, o Nome e o Numero de Disquetes de cada Programa Desejado. NSo esquega de adidonar a taxa de Correio. 
FORMAS DE PAGAMENTO: 1-) CHEQUE NOMINAL: a Alex Soft Entretenimento e LocagSo Ltda. ou 2-) DEPbSITO : Banco Bradesco, Agenda 
2282-9, Conta 5.520 - 4 ou Banco Unibanco, Agfincia 0098, Conta 121.879 - 5 em nome de Alex Soft Entretenimento e Locagdo Ltda., os depbsitos 
serSo conferidos atravAs do Video Texto. 



S11M JMMVMMTESNOOKBI (VGA) 

S10U POmtKMtVHNOOVW (VGA) 

40012 STMPPOtOtai (VGA) 

mzf sun mu. (vga) 
mii mAVHCAfTua ivcaj 

Esporftes e Competipfiec : 




Promosoes 1-> Na Compra de cada 10 Disquetes vocS ganha mais 1 Disquete Gravado; 
do Mes * 2 > - as Com P ras acima de 30 Disquetes HD voc§ paga d 2 Cheques (1 no Ato + 1 para 15 Dias); 
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RS 70,00 THELAWNMOWERMAN 
R$ 60,00 THE UMD OF THE RINGS 
RS 30,00 TORNADO 
R$ 60,00 ULTIMA VIII 
RS 30,00 WHO SHOT JOHNNY ROCK 
RS 45,00 WOLF 3D MANIA 
RS 75,00 WORLD QRCUrT 



RS 05,00 
R$ 50,00 
R$ 60,00 
RS 50,00 
RS 55,00 
RS 70,00 

R$ 55,00 IB4CARTA 1994 
RS 35,00 I MOZART 
RS 50,00 I MUSICAL INSTRUMENTS 
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CURSO 



Visual Basic - Parte 8 

Este capftulo e apenas a continuagao do passado. 



Ricardo Flores 

0 Pentelho solicitou um Painel de Controle que permita 
mudar a legends e a cor de segundo piano do frmNota. Voce 
programador, vai criar um menu em frmTabuada e o 
frmPControle com barras de pqginagao vertical. 

CRIANDO A BARRA DE MENU COM A JANELA DE 
DESENHO DE MENU 

A Barra de Menu tera um Menu Editar, contendo 1 item: 
Panel de Controle Ctrl+P 
Ative o formulario \ Menu Windows \ Menu Design 
Na caixa Caption, digite: &Editar \ Na caixa Name, digite: 
mnuEditar \ Botao Next 

Na caixa Caption, digite: Painel de Controle \ Na caixa Name, 
digite: itmPControle 

Na caixa de lista Shortcut [= Teclas de Atalho], selecione: 
Ctri+P 

Acione o botao para este item de menu ficar endentado \ 
OK 



ADICIONANDO UM NOVO FORMULARIO 



Clique o botao "Adiciona 
Novo Formulario" OU 
Menu File \ Add New Form 
Propriedades de Forml: 
*Name: frmPControle 
*Width: 3.510 twips 
*Height 3.975 twips 
*Caption: Painel de 
Controle 

*MaxButton: False 
*MinButton: False 
*BorderStyle: 1 - Fixed 
Single 



Painel de Controle 



Novo 
T itulo: 



Avatiapao 



Vennelho Veide Azul 




OK 



Cancel ai 



Clique o botao "Gravar Projeto Corrente” e digite: 
PAINELCO (Para nome desse novo fbrmulirio) 

OK 

CRIANDO A INTERFACE COM O USUARIO - 
FRMPCONTROLE 



Crie, redimensione e reposicione os objetos com as 
respectivas propriedades: 



Ohjetn 


Name 


Caution 


BorderSyle 


Default 


Text 


Label 


Labell 


Novo Tit.: 


0 - None 


N/A 


N/A 


Label 


Label2 


Vermelho 


0 - None 


m 


N/A 


Label 


Label3 


Verde 


0 - None 


m 


N/A 


Label 


Labeld 


Azul 


0 - None 


N/A 


N/A 


Label em FVeto 


IblNovaCor 


Nada 


l-SingleFixed 


N/A 


N/A 


Botao de Comando 


botOK 


OK 


m 


True 


N/A 


Botao de Comando 


botCancelar 


Cancelar 


m 


D/P 


N/A 


Barra de Pag. Vertical 


bpvCor 


m 


m 


N/A 


N/A 


Barra de Pag. Vertical 


bpvCor 1 


Njl 


m 


N/A 


KJA 


Barra dePag. Vertical 


bpvCor 


m 


m 


N/A 


N/A 


Caixa Text Avaliacao 


txtNovoTit 


M J 


«p 


N/A 


Nada 



N/A=NaoAplicavel, ouseja, a propriedade nao exists para este controle. 
D/P=Deixar no Padrao, ou seja, nao alterar o valor da propriedade. 

Ao digitar o mesmo nome para este novo objeto, o VB 
enviara o Quadra de Mensagem: "Voce ja tem um controle 
de nome bpvCor’. Voce quer criar um vetor de controle?” 
Acione Yes \ Acrescente a ultima barra de paginagao vertical. 



PROPRIEDADES DAS BARRAS DE PAGINAQAO [= 
SCROLL BAR] VERTICAL OU HORIZONTAL 



Propriedade 

Min 

Max 

Value 

LargeChange 

SmallChange 



Valor Numerico (0-32.767) 

limite do ponto sup. ou esquerdo da barra de paginagao 
limite do ponto inf. ou direito da barra de paginagao 
do local do marcador dentro da barra de paginagao 
distanda que o marcador se movera quando a barra e 
adonada 

distanda que o marcador se movers quando a seta da 
barra e acionada 
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LINHA 95 DOS PRODUTOS 



Se o seu servigo est& complicado, 
cheio de burocracia e com 
montanhas de papel, nao se 
desespere. 

A estratdgia tem a sua solugao. 
Oferecemos programas produtos 
que adaptamos h sua empresa, 
para resolver o seir problema e 
acabar com a sua "dor-de-cabega". 





Se desejar, tambem oferecemos 
produtos sob-medida para sua 
empresa, desenvolvidos no menor 
tempo possfvel. 

Experiments e comprove!! Faga 
voce tambem uso das mordomias 
da estratdgia. 'Test drive" gratuito, 
instalagao, treinamento, "hot line", 



anfim tudo aquiio que voce sempre imaginou que ia receber 



quando comprasse urn software. 



Adote a melhor estrategia, solicite a visita de urn 



■epresentante tecnico ou venha nos fazer uma visita. 



Na linha.de programas produtos temos os "genericos" e os 
"especfficos". Os "gendricos" sao oferecidos nas versoes 
j'light", normal, multi e super. Os recursos disponfveis variam 
de acordo com a versao, sendo que a versao super d a mais 
completa, tendo caracterfsticas multi-empresa e 
Vnulti-usuario. 



Os nossos genericos sao: 

Caixa 

Sistema de emissao de cheques em 
microcomputador, d a forma mais 
I’&pida e segura de preenche-los e 
iassina-los. 

Contas a Pagar 

fode ser integrado ao CAIXA. O 
jCPAG controla as despesas classificando-as e agrupando-as 
jcontabilmente e gerencialmente segundo centros de custo e 
tipos de despesa. 

Cadastro 

Programs para controle de 
fornecedores e clientes, permite a 
emissao de etiquetas 
auto-adesivas para 

enderegamento postal bem como 
a impressao individual de 
envelopes personalizados e 
subscritos. 






Conta 

A contabilidade descomplicada e simples de usar. Permite 
urn piano de contas com atd 6 niveis. 

Os nossos especfficos sao: 

Controle de Operagdes de CSmbio 

Este destina-se aos usudrios que desejem informatizar as 
suas at jvidades de Cambio, beneficiando-se assim da rapidez 
e flexibilidade advindas do uso do microcomputador. 

Chef 

Controle de Custos Refeigoes 
destina-se a restaurantes e empresas 
’ fornecedoras de refeigoes que desejam 
ter urn controle sobre a rentabilidade de 
cada prato produzido e servido. 

dnibus 

E urn software para empresas que operam com dnibus de 
turismo. Ele controla as reservas e as excursdes, emitindo 
listagens de pick-up, estatfstica de vendas, relatdrios de 
servigos para cobranga dos agentes, bem como respectivas 
comissoes e inumeras outras informagoes. 

Mago 

^ o sistema de controle de gado 
leiteiro. Gerencia as atividades 
cotidianas das granjas leiteiras. Avalia 
o desempenho dos animais sob 
aspectos reprodutivos e zootdcnicos, 
individualmente ou em conjunto. 

Mantdm urn cadastro dos animais, 
trata das tarefas relativas ci produgao 
de leite, cuida das atividades reprodutivas: cios, diagndsticos 
de prenhez, tratamentos prd-parto, inseminagoes e 
coberturas. 





Sica 

Controla a carteira de agoes de urn investidor. Todas as 
operagdes sao langados e as despesas de corretagem sao 
apropriadas ao prego das agoes. A carteira 6 avaliada 
tambdm em UFIR e o resultado das operagdes 6 apurado de 
forma sistem£tica para a declaragao mensal do Imposto de 
Renda. 




E para finalizar oferecemos o nosso j& 
consagrado Papel Timbrado. Ele e o 
software que timbra o papel na sua 
impressora, nos relatdrios produzidos 
por qualquer programs. E prdtico e util. 



av pres vargas 962/414 - rio - 20071-002 - tel.: 263-4386 






Enco litre e mude as propriedades dos objetos bpvCor: 



Propriedade 


bpvCoifO) 


bpvCotfl) 


bpvCor(2) 


Min 


0 


0 


0 


Max 


255 


255 


255 


Value 


0 


0 


0 


LargeChange 


20 


20 


20 


SmallChange 


10 


10 


10 



ESCREVENDO O C60!G0 DO ITEM DE MENU PAINEL 
DE CONTROLS DO FRMTABUADA 

Clique o menu Editar do formulario \ Clique o item Painel de 
Controle desse menu 

Observe que antes de exibir [= Show] o frmPControle, 
estamos estabelecendo que: 

o texto da caixa txtNovoTrtulo do frmPControle sera igual a 
legenda do frmNota; 

a cor de segundo piano do label IblNovaCor do frmPControle 
sera igual a cor de segundo piano do frmNota. 

Isto posto, complete o procedimento: 

Sub itmPControle_Click ( ) 
frmPControle.txtNovoTrtulo.Text = frmNota.Caption 

fmiPControle.lblNovaCor.BackColor = frmNota. BackColor 

frmPControle.Show 
End Sub 

Rode o aplicativo para test&fo. 

ESCREVENDO O CODiGO BASIC DO BOTCANCELAR 
DO FRMPCONTROLE 

Duplo clique no botCancelar \ Complete o procedimento: 
Sub botCancelar_Click ( ) 

Hide tsconde o formulario conente. 

End Sub 

Rode o Projeto \ Fagavarios testes Mermine a Execugao do 
Projeto 

ESCREVENDO O CODIGO BASIC DA BPVCOR DO 
FRMPCONTROLE 

Duplo clique na bpvCor (Qualquer uma.) 

0 VB "percebendo” mudanga [= Change] nos valores [= 
Value] de qualquer barra de paginagao vertical (bpvCor(0) - 
parametro vermelho, bpvCor(l) -parametro verde oubpvCor(2) 
- parametro azul), estabelece a cor de segundo piano do 
IblNovaCor conforme o valor retomado da fungao RGB. 

Isto posto, complete o procedimento: 



ESCREVENDO O C6DIGO BASIC DO BOTOK DO 
FRMPCONTROLE 

Duplo clique no botOK \ Complete o procedimento: 

Sub botOK.CIick ( ) 
frmNota.Caption = txtNovoTrtulo.Text 

frmNota. BackColor = RGB(bpvCor(0). Value, 
bpvCor(l).Value, bpvCor(2).Value) 

Hide tsconde o formulario conente. 

End Sub 

Rode o Projeto \ <Ctrl>+<P> \ Ative as Banas de Paginagao 
Vertical \ OK 

Observe que o IblAviso do frmNota nao permite que voce veja 

0 que h& por tras desse label. 

Termine a Execugao do Projeto 

PROPRIEDADE BACKSTYLE [= ESTILO DE FUND©] 

1 - Opaque [= Opaco]: Nao permite visualizar o que esta por 
tras do objeto. 

0 - Transparent: Pennite visualizar o que esta por tras do 
objeto. 

Encontre e mude a propriedade BackStyle do objeto IblAviso 
do frmNota para 0 - Transparent . 

Rode o aplicativo para testa-lo. 

NOTA: Aprendemos na escola que as cores primarias sao 
vermelho, amarelo e azul. Essas cores primSrias sao 
subtmtivas porque se as misturamnos o resultado sera 
preto. 

Jao VB, atraves do Windows, usaluzao invesdetinta para 
produzir cor e adota como cores prim&rias: vermelho, verde 
e azul [= RGB = Red, Green, Blue]. Tais cores sao class ificad as 
como cores aditivas, que formam o padrao usado nos 
aparelhos de TV, bem como em palcos de shows e teatro que 
usam holofotes de cores aditivas. A fungao RGB se encarrega 
de misturar as cores primSrias aditivas, retomando urn 
Inteiro Longo, que e o cddigo da cor. 




Dmims 


(kslisas 


Misti 


irando as Cores 


Resultado 


Tints 


Cores Subtratrvas 


Vermelho 


Amarelo 


Azul 


Preto 


Luz 


Cores Aditivas 


Vermelho 


Verde 


Azul 


Branco 



Ati a proxima 



Sub bpvCor.Change (Index As Integer) 

IblNovaCor.BackColor = RGB(bpvCor(0). Value, 
bpvCor(l).Value, bpvCor(2).Value) 

End Sub 

Rode o aplicativo para testa-lo. 



Ricardo flores 6 Auditor e Diretor da Audit system, empresa 
especializada em treinamento e Comuniagao Visual. £ 
formado emAdminis tragao e Ciencias Contabeis pela Candido 
Mendes. Criou m&todo prdprio de treinamento em DOS, Lotus, 
Clipper e etc. 
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GLOBAL INFORMATICA LTDA. 

R. Barao de Itapetiniga, 297 - sala 44 - Sao Paulo - SP 






FONE/FAX: 
(Oil) 214-02B9 



GRAVAQAO EM 5 1/4 HD. R$2,«0 

PD GRAVAQAO EM 5 1/4 DD R$ 13 

rJVCyUD, GRAVAQA0 EM 3 1/2 HD, R$3,0# 

. ... - .,:CORREIO-(A^. U item 



Pedidos. For carta ou telefone de Segunda a Sexta das 9:00 &s 18:00 e aos S£bados das 9:00 hs 13:00. Relacione o nome e a 
quanttdade de discos de cada programa. Se preferir visite-nos pessoalmente. 

Pagamento. Envie um cheque nominal a Global Informdtica Lida, no valor total de seu pedido, nao se esquecendo de 
acrescentoa Taxa.de Correio. Promo^ao: A cada 10 cdpias com disco, ganhe 1 & sua escolha; A cada 50 cdpias disco, ganhe 9! 
latalogo Eletronico: Envie 1 disco 5 1/4 HD ou R$ 1,80 com nome e enderego. Catdlogo Impresso: Gratuito! Peca ]& o seu. 



Adventures 

Sam and Max 
Alone in The Dark 2 
Beneath a Steel Skv ,*;fl 
Bloodnet 
Gabriel Knight 
Innocent Until %aoght 
Kyrandia 2 
Leisure Suit Larry 6 
Police Quest # 

Star Trek 25th Jllii 
Star Trek Jugdment 
Kronolog 

Alone in The Dark 
Indiana Jones Atlantis 
Day of 1. ntacle 
Return to Zork 
Return of The Ph ntom 
Rex Nebular 
Monkey Maud 2 
Lost in Time 
Fatty Bear# ^ '. : 1|| 

Amazon ' ' % 

Batman Returns 
Cobra Mission - 
Eco Quest 2 
King’s Quest 6 

Esportes 

Fifa Soccer 
Links 386 Pro 
Empire Soccer 94 
Jordan in Flight 
Great Cours 2 



Erdtigps e Porno 

07H DlrVir v + 30 anim. 04H 

(Ml Ensaios da Playboy " 01H 

06H Strip Poker Pro '1m 

04H Strip Poker For Windows* 08H 
llH Peathcuse Jigsaw Puzzle 01H 
G7H Pod& Tetris 01D 

® Simuladores em geral 

12H Tie Buster 05® 

: P8H Mvitett 06rf 
V 05H 

: $7H Wm$ Cfemiker 2 OBIT 

05H ! BMc ' 06H 

: . Strike - : ■" ' 09H 

06H F~14 HeetDol&lder 04H 

12H 1S^2 Meiffc v r War 06H 

05H TEX 08H 

Hlff Ao. s of Pacific 03H 

06H j Aces cmnr Europe 03H 

12M Strike Comn tnder 08H 

06H F-15 Strike Ea.de 3 06H 

Off R aciag,,,,. ' ' 03H 

07H Indy ( lai C\ cks + Editor 02B 
05H Rally 06lf 

05H Worii-Ofcuit 0M 

IPi. SubWa ■ 05H 
111 Comanche 03H 

% ••• : !;':©2h 

03H Sifri Health 02H 

04H Sim Farm ... * QjH 

01H Flight Simulator 5 03H 

03H FS5 penyl? 01H 

01H:FS5 Att&tk 02H 



Agao 



Doom 


04H 


The Horde 


06H 


Corridor 7 


02H 


%m Divil 


06H 


Speed Racer 


03H 


Wolf Tt> + 30 Andares 


01H 


Pinball fantasy 


02H 


Mortal Kombat 


03H 


Street Fighter 2 


03H 


Raptor 


03H 


3 : ody.Bl@^ v .. r 


01H 


Dlgpm 75 Falls 


07H 


lll§h Back 


03H 


Ppsce of Persi a 2 


04H 



Reunion 
Master- ofOrion 



06H 

03H 



Dune 2 

Unnatural Sellection 
Miids of Glory 
Chess Master 4000 Win 

R.P.Q. 

Ravenloft 

Al-Qadim 

Arena: The Elder Scrolls 
Lands of Lore 
Ultima VIII: Pagan 

Eye of the Beholder 3 



07H 

05H 

08H 

08H 

08H 





CAPA 



Caos, Fractals e o Metodo 
Computacional 

Conhega as teorias e estudos acerca do universo fractal 



Marco Aur6lio de Souza Birchal 



Definir o Caos, hoje, nao e mais uma mera questao 
filosofica de conceituagao da lei da incerteza ou do acaso. 
0 estudo do Caos 6 o estudo dos fenomenos aparentemente 
imprevisrveis, na busca de padroes escondidos e de leis 
simples, num mundo no qual se suspeitava ser pura 
desordem. 

Esse estudo s6 se tornou efetivamente possivel apos a 
decada de 60, quando os computadores comegaram a 
apresentar poder de processamento relativamente grande e 
se tornaram mais acesstveis a certos fisicos e matematicos, 
que, naquela epoca, comegaram a procurer meios de 
explicaro aparentemente inexplicavel, por perceberem que 
"faltava algo” na ciencia capaz de unificar concertos no 
sentido de se terem respostas para as questoes 
fundamentals de maneira global, e nao para casos 
particulares por sistemas arranjados para “dar certo”. 

Conhecemos hoje dois padroes de sistemas fisicos e 
matematicos. Ao primeiro, pertencem os bem comportados 
sistemas lineares, no qual uma fungao e bem descrita 
atrav£s de uma equagao responsavel , que tenta representar 
um sistema fisico real, dentro de certos limites. 0 segundo 
padrao de sistema e o chamado nao-linear. Nos sistemas 
nao-lineares, nao se consegue atraves de algebrismos, 
encontrar as respostas tao bem elucidadas pelos lineares, 
por possuirem uma grande quantidade de variaveis ou 
ordem maior que um (x2, x3, etc) e nao responderem de 
forma linear ou organizada ds variagoes de sua entrada. 

Os sistemas naturais sao, em sua grande maioria, nao- 
lineares: num carro andando numa estrada existe atrito com 
o ar; todo liquido 6 imperfeito, nao homogeneo e possui 
viscosidade; ou ainda: numa mesa de sinuca o pano nao e 
liso e irrfluencia na trajetdria da bola. Tudo isso causa 
descontinuidades e, para se resolverem tais problemas com 
sistemas lineares, precisariamos desconsiderar as 
influences, e obteriamos apenas uma pseudo-realidade. 



Um dos estudiosos dos fenomenos caoticos e Benoit 
Mandelbrot, possuidorde umgenio superiore uma perce pgao 
fantastica. Trabalhava na IBM na decada de 60 e comegou 
a investigar, com o auxilio de computadores, fenomenos 
aparentemente aleatorios, como: resposta de sistemas 
economicos e bolsa de valores, ou o erro de transmissao em 
sistemas digitais, que obedecem a sistemas nao-lineares e 
por isso necessitavam de metodos numericos para serem 
resolvidos. 

FRACTALS 

Mandelbrot era um matematico nao ortodoxo e preferia 
aplicar a geometria na solugao de problemas, ao inves de 
resolve-los algebricamente. Acreditava que a resposta grafica 
de um sistema consiste em uma nogao mais completa do 
problema. 

Gragas asua preferenciageom6trica, Mandelbrotpeicebeu 
que sistemas aparentemente caoticos possuiam padroes 
simples de resposta que eram repetitivos e continham, 
intrinsecamente, um algoritmo de auto-repetigao capaz de, 
atraves de uma parte, gerarotodo. Aessaformageometrica, 
Mandelbrot chamou Fractal, que significa a menorfragao de 
um todo auto-similar capaz de gerar o conjunto. 

METODOS COMPUTACiONAlS 

Desde Newton (e mesmo antes), tem-se a necessidade 
de se calcular as raizes de equagdes (valores de x para os 
quais a equagao 6 nula) de grau superior a dois, o que 
frequentemente se toma quase impraticavel devido a 
complexidade algebrica das solugoes. 

Newton desenvolveu um metodo numerico de 
aproximagdes sucessivas da solugao, que permite resolver, 
numericamente, problemas ate entao insoluveis (digo 
numericamente, porque encontramos valores cada vez mais 
proximos da resposta, mas nao encontramos efetivamente 
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a resposta). 

0 Metodo de Newton consiste em se estipular um valor 
inicial para a resposta e, a partir dele, iterar afungao ate que 
se aproxime o maximo possivel da mesma, obtendo-se uma 
resposta numerica e um fator de erro (aproximagao). 

0 Metodo de Newton ( assim como outros mais modernos) 
e usado para se resolverem sistemas nao-lineares. Os 
sistemas nao-lineares sao equacionamentos matematicos 
de sistemas fisicos dinamicos que representam a variagao 
de uma certa grandeza, no tempo e no espago. Conseguir 
resolver tais sistemas e achar a resposta para os problemas 
fisicos. 

Levando-se em conta que o proprio Metodo pode ser 
encarado como um sistema dinamico, devido a natureza 
iterativadesuasolugao, o presente programs traga no video 
do computador a tendencia de cada ponto do piano complexo 
de alcangar uma raiz de uma eq uagao complexa. Pelo grafico 
detendencias, podemos analisaro comportamento de cada 
ponto em relagao ao esperado. 

Aqui, a revelagao: Num sistema qualquer, edese esperar 
(mesmo intuitivamente), que os pontos tendam a alcangar 
a raiz mais proxima, ja que todo sistema tende a se 
estabilizar, quando alcanga uma das suas raizes. Porem, o 
que se obtem e uma forma fractal e ntre os limites de atuagao 
das raizes do sistema, de forma que um ponto que 
teoricamente tenderia a uma raiz, teima em se aproximar de 
uma raiz mais distante, gerando um comportamento 
aparentemente caotico, mas que respeita uma formidavel e 
belaformageometricadeassustadorasimetria, independente 
do grau de escala (zoom) do grafico. 

Tomamos entao uma equagao de terceiro grau para 
tragarmos sua tendencia em relagao as raizes. A equagao 
e: 



Z3-1 = 0 

Onde Z e urn numero complexo (um numero formado de 
uma parte real e uma imaginaria. ex.: Z=R+jX). 

A necessidade de se tomar um numero complexo vem da 
facilidade que isso traz quando vamos plotar um resultado 
na tela do computador, pois, sendo ele formado de duas 
partes, tomamos o eixo dos x como a parte real R e o eixo 
dos y como a imaginaria, jX. 



fig.l-a bolinha tende para 
o buraco mais proximo 

Este sistema numerico 
pode serentendido como 
um analogo fisico de um 
piano inclinado com tres 
buracos em pontos 
distintos, onde cada um 
Buraco dos buracos seria uma 
raiz do sistema. Se 
soltarmos uma bolinha em qualquer ponto do piano, ela iria 
tender a caminhar em diregao ao buraco mais proximo, ja 
que ele a estaria “atraindo" . 




Verifica-se que, para a grande maioria dos pontos do 
piano, a bolinha realmente vai para o buraco mais proximo. 
Mas, o que acontece quando ela esta numa regiao de 
separagao entre influences? A resposta mais razoavel 
seria: Nao sei, soltemos a bolinha para descobrir. £ o que 
estamos propondo aqui. 

Pois bem, acontece que quando a bolinha chega numa 
dessas regides, ela petde totalmente sua caractenstica 
linear - ir para o buraco mais proximo - e comega a se 
comportar de maneira caotica - ir, talvez, para o buraco mais 
distante. 



figura 2 - a bolinha oscila 
e vai para o buraco mais 
distante 



0 programa possui 
uma cor para cada uma 
das solugoes do pro- 
blema (raizes da equa- 
gao) e varre o piano 

reyitiu inbiavtii Buraco complexo, ponto a ponto, 

dentro dos limites for- 

necidos. 

0 Metodo de Newton e iterado n vezes para cada ponto 
e, no final testa-se para qual das raizes o ponto tornado 
convergiu. Isso e feito atraves da diferenga: 

P = PONTOk- RAIZn 

Onde PONTOk e o ponto resultante do valor iterado, e 
RAIZn e o conjunto de raizes da equagao, tomadas uma a 
uma. SePformenorqueaprecisaorequerida, indicaqueseu 
valor tendeu para a raiz testada e ele e plotado com a cor da 
raiz para a qual convergiu. 

Tudo ocorre tranquilamente nos pontos proximos das 
raizes, mas, quando chegamos a regiao defronteira, obtemos 
um grafico totalmente atipico e maravilhoso (figura 3 e figura 
4). Ele nos mostra que os pontos da fronteira sao 
problematicos e possuem um padrao proprio e que pormuito 
tempo passou despercebido, mas, mesmo assim, e um 
padrao - infinite e auto-repetitivo - e um padrao fractal 





fig.3 - -20<x<20, -20<y<20 
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REM 1994 



It. 



f 



fig.4 - -1<x< 1, -l<y<l 

O PROG RAMA 

0 programa foi escrito em QBasic, podendo ser rodado 
em qualquer computador que possua MS-DOS 5.0 ou 
posterior, com tela VGA. Pode-se mudar a resolugao para 
CGA, desde que se altere o comando SCREEN 8 para 
SCREEN 2. 

Como o processamento 6 iterativo, ele sera lento se 
interpretado, aconselhando-se a compilagao para otimizar a 
velocidade. Para secontomar esse problema, foram inseridas 
as grandezas Tamanho (numa faixa de 1 - pequeno a 4 - 
grande) que define o tamanho do grafico em relagao £ tela 
e Resolugao (numa faixa de 1 - alta resolugao a 9 - baixa 
resolugao) que define a quantidade de pontos a serem 
calculados dentro os limites inferior e superior definidos. 
Estes limites nao sao testados, ficando o usu&rio livre para 
modificagao dos mesmos, tanto para mais, quanto para 
me nos. 

0 programa pede, inicialmente, os limites de cilculo, que 
sao dados pelo retangulo de diagonal inferior (xi, yi) e 
diagonal superior (xs, ys). Deve-se fornecer, 
preferencialmente, coordenadas simgtricas como (-1,-1) e 
(1,1) ou (-10,-10) e (10, 10) para os limites inferior e superior 
respectivamente, pois, desta forma, est&-se ajustando a 
escala para uma 6rea sempre simetrica em relagao aos 
eixos do piano. 

Como se trata de nCimeros complexos, foram usadas 
matrizes 1x2 para representar as respectivas partes real (ex. 
qd(l,l)) e imaginaria (ex. qd(l,2)) de tais nQmeros. 

gp MARCOAURBUO DE SOUZA BIRCHAL e Engenheiro Eletriclsta 
e atua na Area de processamento de dados. £ sdcio- 



Atica. em Belo Horizonte. 



moon 

CAOS.BAS 



REM CAOS.BAS - Uta programa para plotagem 
do ecmportamanto 

REM fractal do Matodo da 

Nawton aplioado a 

REM aquacoaa camplexas do 

tlpoi z=x A n - a 

REM Autort Marco Aurallo da Souza 
Blrchal 



DIM SHARED z(l, 2) 

DIM SHARED sm(l, 2) 

DIM SHARED qd(l, 2) 

DIM SHARED mu(l, 2) 

DIM SHARED dl(l, 2) 

DIM SHARED ralz(3, 2) 

DECLARE SUB quad (X, y) 

DECLARE SUB soma (x2, xl, y2, yl) 

DECLARE SUB multi (am, bm, cm, dm) 
DECLARE SUB divld (ad, bd, CD, DD) 

ON ERROR GOTO erros 

CLS 

rlnf = 0 

PRINT * Entre com os valores dos 
limites de x a y infer lor as a 
suparioras < " 

PRINT " (xi,yi) - limites inferiores. 
ex. i -1,-1" 

PRINT " (xs,ys) - limites suparioras. 
ax. * 1,1" 

PRINT 

PRINT " OBSi apos iniciada a plotagam, 
digite <T> para terminar a qualquer 
instants" 

PRINT 

INPUT "antra (xi,yi)"» xi, yi 
INPUT "antra (xs,ys)"/ xs, ys 
PRINT 

INPUT "resolucao* (1 a 9) "; res 
INPUT "tamanho* (1,2,3 ou 4) "/ tarn 
CLS 

SCREEN 8 

VIEW (0, 0) - (160 * tarn, 50 * tarn) 

or a .01 
nraiz = 3 

raiz(l, 1) = -1 / 2 
raiz(l, 2) = -(SQR(3)) / 2 
raiz(2, 1) = -1 / 2 

raiz(2, 2) = (SQR(3)) / 2 

raiz ( 3 , 1) = 1 

raiz(3, 2) = 0 

CLS 

corant = 10 

passox = (xs - xi) / ((160 * tarn) / 
res) 

passoy = (ys - yi) / ((50 * tarn) / res) 
iter = 20 

WINDOW (xi, yi) - (xs, ys) 

FOR xx = xi TO xs STEP passox 
i$ = INKEY $ 

IF i$ » "t" OR i$ ■ "T" THEN 
END 
END IF 

FOR yy = yi TO ys STEP passoy 
t(l, 2) = yy 
z (1, 1) s xx 

PSET (xx, yy) , 14 
1 = 1 
DO 

quad z(l, 1), z(l, 2) 
multi z ( 1, 1), z ( 1, 2), 
qd(l, 1), qd(l, 2) 

quol = mu(l, 1) - 1 

quo2 = mu(l, 2) 

multi 3, 0, qd(l, 1) , qd(l. 
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divid quol, quo2, mu(l, 1), 

mu(l, 2) 

z(l, 1) = z(l, 1) - di(l, 1) 
z(l, 2) = z(l, 2) - di(l, 2) 
cor = 10 

POR aa = 1 TO nraiz 
IP ABS ( z (1, 1) - 

raiz (aa, 1)) < er AND ABS(z(l, 2) - 
raiz (aa, 2)) < er THEN 

IP cor = 10 THEN 
cor = 14 

ELSE 

IP cor = 12 THEN 
cor = 13 
END IP 
END IP 

PSET (sex, yy) , cor 
corant = cor 
1 = iter + 1 

ELSE 

cor = cor + 1 
END IP 

NEXT 

1 = 1 + 1 

LOOP UNTIL 1 >= iter 
IF res > 1 THEN 

LINE (xx - passox, yy - 
pas soy) - (xx, yy) , corant, BF 
END IF 
NEXT yy 
NEXT XX 
lacot 

i$ = INKEY $ 



IP i$ = "" THEN 
GOTO laco 
END IF 

erros t 

PSET (xx, yy) , 8 
rinf = 1 
RESUME NEXT 

SUB divid (ad, bd, CD, DD) 
multi ad, bd, CD, -DD 
ed = mu(l, 1) 
fd = mu(l, 2) 

gd a (CD * CD) + (DD * DD) 



di(l, 1) 
di(l, 2) 

END SUB 



ed / gd 
fd / gd 



SUB multi (am, bm, cm, dm) 
mu(l, 1) = (am * cm) - (bm * dm) 

mu(l, 2) m (am * dm) + (bm * cm) 

END SUB 

SUB quad (X, y) 

qd(l, 1) = (X * X) - (y * y) 

qd(l, 2) » (X * y) + (y * X) 

END SUB 

SUB soma (a, b, c, d) 
sm(l, 1) = a + c 
sm(l, 2) = b + d 
END SUB 



JSHAREHOUSE - BELO HORIZONTE 
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FAC A JA O SEUPEDIDO ! 

031 - 496-6840 

AV XANGRI-LA, 75-C125- BJRAUNAS 

BELO HORIZONTE - MG 
CEP: 31.365-640 



PREQO POR DISCO (INCLUSO) 
380 DO - R$ 1,20 
1.20 HD - R$ 2,00 
1.44 HD - R$ 2,30 



LANQAMENTOS 

CRAZY CARS III 02/HD 

TIE FIGHTER 0S/HD 

HARPOON II 04/HD 

THEME PARK OttHD 

INOYCAR RACING CIRCUITS 02/HO 
DARK LEGIONS 07IHO 

WAR IN RUSSIA 01*40 

DJJAY BEGINNING OF THE END 01 /HO 
RUSSIAN SIX PACK 02/HD 

PRIVATEER -RIGHTEOUS FIRE 02/HD 
EPIC PINBALL IH 01/HD 

THEATRE OF DEATH (WHO 

OENESIA 02/HD 

THE DIGGERS 02*10 

LAST ACTION HERO 00/HD 

RYDER CUP -OCEAN 02/HD 

FS 0.0 - ADD ON ITALY 02*0 



UNNATURAL SELECTION 
SYNDICATE DATA DISK 
CORRIDOR 7 - ALIEN INVASION 
THE RED CRYSTAL 
CIVILIZATION FOR WINDOWS 
BATTLE ISLE N 
BLOODNET 

RAPTOR - CALL OF SHADOWS 

THE HORDE 

STARLORD 

REUNION 

CARRIERS AT WAR I 
TERMINATOR RAMPAGE 



PACIFIC STRIKE ♦ SPEECH 
SJMCtTY 2000 - SVGA 
RAC RALLY N - NETWORK 
SSNG1 SEA WOLF 



LEGENDS OF KYRANUA N 
CHBSSMASTER 4000 VMNOOW8 
MASTER OF ORION 
1 942 - THE PACIFIC AIR WAR 
STAR TREK JUDGMENT RITES 
THE BEVERLY HILLBILLIES 
WASHINGTON SCENERY FS 5.0 
DETROIT 

KRONOLOG THE NAZI PARADOX 
POLICE QUEST IV 
TRUMP CASTLE M 
DUNGEON HACK 
F-14 FLEET DEFENDER 



QUEST FOR GLORY IV 
RULES OF ENGAGEMENT I 
TFX TACTICAL FIGHTER EXP 
F/A 19 HORNET NAVAL STRIKE 
COMPANIONS OF XANTH 
ISLE OF THE DEAD 
AL-QAD1M - THE GENIE'S CURSE 
INCA! 

ALONE IN THE DARK 9 
CANNON FODDER 
RAVENLOFT 
LOST IN TIME 
UTILOIVIL 



ROB 

BENEATH A STEEL SKY 
GREAT NAVAL BATTLES H 
ULTIMA VM - PAGAN ♦ 9PEI 
OSCAR 

INHERIT THE EARTH 



U.F.O. ENEMY UNKNOWN 

■ MIMTO MAIS PAHA V 













CLASSIC SOFT 1 

RU A JOAO CORDEIRO, 495 - FREGUESIA DO 



TEL/FAX (Oil) 875-4644 

O 6 - SAP PAULO - CAPITAL - CEP 02SS0-000 







FApA SEU PEDIDO: Por tdefone, fax ou carta. 

FORMAS DE PAOAMENTO: 

A) SEDEX & cobrar, voc6 s6 pagarft quando retirar o pedido no correio da aua oidade. 
(Lambramos qua os servipos doe oorreios edo oerlssimos) 

B) CHEQUE NOMINAL A CLASSIC SOFT LTDA.. para eua comodidade a eoonomia recomendamos fazer o 
pedido por cheque nominal pois vood recebe seu pedido am casa. 

C) DEPOSITO BANCARIO: Unibanco • ag. 137 - conta 113 444-4 am noma da Classic Soft 
Bradesoo - ag 117-1 * conta 98741-7 em nome de Classic Soft - enviando xerox do depbeito junto ao peddo. 
DESPESAS POSTAB: (Raff strada) peddos at* 10 discos R$ 2,80 (Prepo somente para pagamento em cheqje 

ito banc&rio) ^ 



PROMOTES pc 

10 Jogoa ou apHc. ganho urn grMa d dlaeo. 
SO Jogoa ou apllc. ganha 10 grtta c / diaco 

DISCO 5 1/4 HD C/ QRAV R$ 2,00 

DISCO 5 1/4 DD a QRAV R$ 1,50 

PARA COMPRA ACIMA DE 20 DISCOS 
PAGAMENTO EM DUAS VEZES: 

metade no ato, metade para IS dias ap6s. 



JOGOS P/ PC/XT-AT - DISCO HD R 



- DISCO DD RS 1,50 C/ GRAVACAO 



COO.rOD NOME 




C00.:G (D NOME: 



C00.:(VD POME: 



HI 022 02HD AIR8US320 
H07B5 03HD ACES OVER EUROPE 
H0936 02HD BLAKE STONE FULL 
HI 041 02HD CLASSIC 5 
H0844 03HD COACHES CLUB FOOTBALL 
H0881 01 HD COOL WORLD 
HI 030 11 HD COMMANCHE ENHANCED 
HO 828 03HD COMMANCHE MISSION 2 
H1010 01 HD CREEPERS 
HI 024 02HD DINO PARK 
H0838 04HD DOOM FULL 
H0840 04HD DOOM REDE 
HOC 00 02HD EIGHT BALL DE LUXE 
H0847 01 HD ELECTRO BODY 
HI 036 01 HD ERIC PIMBALL 
H0648 05MD ETERNAN 
H0838 04HD FUGHT SIMULA*. OR 5.0 
H0948 06HD FUGHT SM. (SAN FRANCISCO) 
H0879 02HD FORD SIMULATOR 3 
H087B 01 HD GALACTTX NEW VERSION 
H0929 02 HD HIGTH COMMAND 
H0932 01 HD HALLOWEEN HARRY 
HI 050 10HD INCA 2 
H0713 03HD INDY CAR RACING 
HI 051 04HD JURASSIC PARK 
H08B9 01 HD LOTUS ULTIMATE CHALLENGE 
HOB 89 06HD LEISURE SUIT LARRY 6 
HI 028 02HD LESS LE ANGEL 
H093B 01 HD LIVERPOOL 
HI 043 0BHD METAL & LACE 
H0747 03HD MORTAL KOMBAT 
H0993 0BHD MIGHT MAGIC V DARKS IDE OF 
XEEN 

HOC 18 03HD NIGEL MANSSEL 
HOB 77 01 HD PANG DINO BALL 
H0910 12HD POLICE QUEST 4 
HI 075 01 HD PINBALL DRENS FULL 
H0824 02HD PINBALL FANTASIES 
H0651 06HD PRIVATEER 
H0740 05HD ROBOCOP 3D 
HI 005 02HD RAGNAROK 
HI 055 03HD RAL ROAD TYCON DELUXE 
H0693 06HD RALLY 
HI 001 04HD RAPTOR 
H0853 08 HD STRIKE COMMANDER 
H0882 01 HD SOLAR WINDS 
H0884 01 HD SINK OR SWIN 
H0890 03HD STREET FIGHTER ll FULL 
H0834 01 HD SENSIBLE SOCCER 
H0838 02HD SUPER PORNO 2 
H0949 02 HD SUPER PORNO 3 
H0942 02 HD SUPER PORNO 4 
H0943 02 HO SUPER PORNO 5 
H0945 02 HD SUPER PORNO 6 
H0947 02HD SUPER PORNO 7 
HI 00 7 03 HD SURF NINJAS 
HI 068 04HD STAR CONTROL 2 
H0855 14HD STAR WARS CHESS 
H0720 11 HO STAR TRECK JUDGMENT 
RITES 

H0827 02HD SIM CITY 2000 
HI 068 01 HD SIM CITY (SENARJOS) 
H0021 02HD SIM HEALTH 
H0835 02 HO TIME RUNNER 
H0777 01HD THE LOST VIKINGS 
HI 078 02HD TOP GUN 
H1014 0B HD ULTIMA B PAGAN 
H1011 03 HD ULTIMA 8 SPEECH PACK 
H0328 05 HD X-WING 
HO 334 03HD WORLD CIRCUIT 
H0648 01 HD WORLD CIRCUIT 
UPGRADE 

HI 078 02HD YO JOE 

H107B 04 HD GREAT NAVAL BATTLE 2 



1092 SOD 
H041 SHD 
J201 20D 
H474 3HD 
H34 0 5HD 
H370 9HD 
J5I9 0DD 
H027 BHD 
H407 6HD 
H292 SHD 
H3I3 10HD 
J626 3DD 
J3I6 6DD 
H03S 6HD 
H365 SHD 
H413 2HD 
H274 6HD 
HI 07 4HD 
J929 1DD 
H4BS 2H0 



LEISURE SUIT LARRY 3(egaArga) 
LEISURE SUIT LARRY 5 (vga) 

LIFE AND DEATH (ega) 

MANSLEY LOS ANGELES (vga) 
MARIO MISSING (vga) 

MIGHT AND MAGIC 4 (vga) 
MONKEY ISLAND I (vga) 

MONKEY ISLAND 2 (vga) 

P0UCE QUEST 1 VGA 
QUEST FOR GLORY 3 (vga) 
SHERLOCK HOLMES (vga) 

SPACE QUEST 2 (cgaArga) 

SPACE QUEST 3 (cga/vgarher) 
SPACE QUEST 4 (vga) 

SPACE QUEST 5 (vga) 

STAR LEGIONS (vga) 

STUNT ISLAND (vga) 

THE LEGEND OF KYRANDIA (vga) 
TRANSILVANIA (ega) 

VENGANCE OF EXCALBUR (vga) 



ebb 


H 




■ 



H428 5HD ALONE IN THE DARK (vga) 

H?*7 BHD AMAZON (vga) 

HI 31 5HD CARMEN SANDIEGO DELUXE (vga) 
J066 1DD CARMEN SANDIEGO EUROPE (ega) 
J031 30 D CARMEN SANOtGO TME (egArga) 
J924 1DD CARMEN SANDEGON USA (ega) 
K354 11 HD DARK LANDS (vga) 

HI 04 9HD DARK SEED (vga) 

1460 ODD DRAKKHEN (cgaArgalw) 

H379 4HD DUNE # (vga) 

H240 JHD FlVEL(vga) 

H427 1HD GALLEONS OF GLORY (vga) 

H452 3HD GOBLIN'S (vga) 

H297 1HD HOUSE OF HORRORS (vga) 

H067 *HD N DIANA JON ES ATLANT S (vga) 
H423 3HD KGB (vga) 

H302 9HD KING'S QUEST VI (vga) 

J196 2DD LEISURE SUIT LARRY 1 (ega) 

H299 3HD LEBURE SUIT LARRY 1 (vga) 






J513 2DD ASTERIX (ega/eg aArga) 

H069 1HD BA I (vga) 

H337 7HD BATMAN RETURNS (vga) 

JO 35 4DD BATMAN THE MOVIE (cgaArga) 

H448 1HD BUMPY’S (ega/vga) 

JB47 1DD CADAVER (vga) 

JI67 tDD CAPITAO TRUENO (ega) 

JO60 2DD CASTLE VANIA (ega/ega) 

1470 1DD CD MAN (pac manArga) 

1204 1DD CHARLIE CHAPIN (ega) 

1476 2DD COMMANDER KEEN 6 (ega) 

1311 6DD DICK TRACE (vga) 

J107 2DD DUCK TALES (ega/ega) 

HI 55 SHD FREE D C (vga) 

J742 1DD FLNTSTONES (cgaArga) 

H1 16 1HD GODS (3B6Arga) 

J149 2DD HORA DO PESADELO (ega/aga) 

1041 3DD HORROR ZOMBIES (vga) 

J1 51 1DD HOSTAGES (ega) 

J500 1DD LHA DISNEY (ega) 

Jt 74 1DD N DIANA JON ES (ega/ega) 

J175 2DD NDIANA JON ES 2 (cga/ega*ier) 

H290 1HD JOE A MAC (38 6 Vga) 

B449 2HD LURE OFTHE TEMPRESS (vga) 
J213 1DD MARIO BROSS (vga) 

HO00 1HD OUT OF JHBWORLO (vga) 

J246 1DD PAPER BOY (ega) 

H095 1HD PAPER BOY 2 (vga) 

1302 20 D PRE HISTORIC (egaVga) 

J943 3DD PREDATOR 2 {cgaArga) 

J260 2DD PRNCE OF PERSIA (cgaArga) 

H460 1HD PRNCE PERSIA EDITOR(cga*ga) 
H469 5HD PRNCE OF PERSIA 2 (vga) 

J272 2DD RAM80 3 (ega) 

H426 I HD RISK WOODS (vga) 

J20O 1DD ROAD RUNNER (ega/ega) 

J201 1DD ROBOCOP (ega) 

J282 2DD ROBOCOP SPECIAL (ega) 

HUS 5HD ROGER RABITT2{vga) 

H442 2HD ROGERWLCO (vga) 

J305 10DD SPACE ACE (cgaArga) 

1391 12DD SPACE ACE 2 (cgaVga) 

H326 2HD SPEAR OF DESTNY (vga) 

J676 2DD SPIDER MAN (cgaArga) 

HI 40 SHD THE ROCKTEER(vga) 

J672 4DD THE SIMPSONS (vga) 

J946 6DD THE SIMPSON'S 2 (vga) 

HI 03 1HD THE SMPSONSvi SPACE MUTANT 
H061 1HD THE TERMNATOR 2 (vga) 

J975 1DD TICOETECO (ega/ega) 

J564 1DD TOM A JERRY (ega/ega) 

1294 6DD WRATH Of DEMON (vga) 

H122 1HD WOLFENSTEN 3-D (vga) 

J771 3DD X MEN (cgaArga) 



4x4 OFF ROAD FIACNG (ega/eg) 
ACTION RGHTER (ega/eg aAar) 
AFRICAN RALLY (ega) 

CAR A DRIVER (386Arga) 

CISCO HEAT (cgaArga) 

DAYS OF THUNDER (ega/vga) 
F-40 (ega) 

FERRARI F-1 (cgaArga) 

FIRE AND FORGET (ega) 

FORD SMULATOR (ega) 



FORO SIMULATOR 2 (ega) 
GRAN PRIX CIRCUIT (ega) 
GRAN PRIX UNLMfTED (vga) 
HARD DRIVNG ( cgaVga) 
HARD DRIVNG 2 (cga/vgajjoy) 
NDIANAPOLIS 500 (cgaArga) 
OUT RUN (cga/vgaAier) 

PARIS DAKAR (cga/vga*ier) 
POWER DRIFT (cgaArga) 
fiM SUZUKI (ega/ega} 

STREET ROD (ega/vga/her) 
STREET ROD 2 (cgaArga/ier) 
STUNTS (cgaArga/her) 

SUPER HANG ON (eg ate ga) 
SUPER OFF ROAD (ega/vga) 
TEST DRIVE 1 (ega/vga/her) 
TEST DRIVE 2 (cga/egaArga) 
TEST DRIVE 3 (vga) 

TURBO OUT RUN (ega) 
TURBO OUT RUN (vga) 

VETTE (ega/vga) 

WORLD CIRCUIT (386Arga) 




COO.:(VD NOME 



HI 94 I HD WOLF PACK (ega/vga) 



ESPORHS EM GERAL 



ESPACtAIS E COMBATES 
AiREOS 



XI 0 


2DD 


AFTER BURNNER (oga/vgafter) 


J747 


2DD 


BLOODY MONEY (vga) 


J740 


2DD 


BLUE ANGELS (eg aVga) 


Jt 1 4 


IDD 


ELITE (ega) 


H126 


1HD 


ELITE PLUS (vga) 


X64 


4DD 


FIGHTER BOMBER (ega/vga) 


HO07 


1HD 


GALACTIC (vga) 


1190 


IDD 


STAR GOOSE (ega) 


J329 


IDD 


STAR TRECK (ega) 


J330 


5DD 


STAR TRECK V (vga) 


HI 64 


7HD 


STAR TRECK XXV (vga) 


J394 


IDD 


THEXDER(ega) 


J509 


3DD 


XENON II (cga/rga) 


J412 


IDD 


XONIX (ega) 


H329 


5HD 


X-WING STAR WARS (386*ga) 


L002 


8H0 


WING COMMANDER II (vga) 








| ; : . 




X02 


2DD 


680 ATTACK SUB 2 (ega* ga) 


X04 


4DD 


A- 10 TANK KLLER (egatega) 


X64 


BDD 


A-1 0 TANK KLLER 2 (ega/rga) 


1332 


6DD 


A-TRAN (vga) 


J704 


2DD 


ABRAMS BATTLE TANK (cgaArga) 


J930 


IDD 


ACES OF ACES (ega) 


H064 


3HD 


ACES OFTHE PACIFIC (vga) 


1102 


4DD 


ATP (ega/eg aArga) 


HI 96 


SHD 


B- 17 FLYING FORTRESS (vga) 


X43 


2DD 


BATTLE HAWKS 1942 (cgaArga) 


X45 


4DD 


BATTLE OF BRITAN (cgaArga) 


H280 


SHD 


COMANCHE (306Arga) 


X14 


6DD 


F-1 1 7 A (vga) 


H256 


1HD 


F-1 1 7 A TURORIAL (vga) 


J544 


4DD 


F- 14 TOM CAT (egaArga) 


J1 15 


IDD 


F-1 5 STRIKE EAGLE 1 (ega) 


J116 


2DD 


F-1 5 STRIKE EAGLE 2 (cgaArga) 


H267 


6HD 


F-1 5 STRICK EAGLE 3 (vgaQ06) 


J116 


2DD 


F-1 6 COMBAT PLOT (cgaftei) 


J121 


3DD 


F-1 9 (ega/ega Ar gamier) 


1421 


2DD 


F-29 (vga) 


J127 


IDD 


FALCON (ega) 


H0S5 


SHD 


FALCON 3 0 (vga) 


H265 


2HD 


FALCON 3 OMISSION 


1435 


6DD 


FLIGHT OF INTRUDER (cgaArga) 


J130 


2DD 


FLIGHT SIMULATOR 3 0 (cgaArg) 


J131 


2DD 


FLIGHT SIMULATOR 4 0 (ega/eg) 


HI IS 


1HD 


FLIGHT SIM 4 tensrioi 


J966 


2DD 


GUN SHIP (ega/ega) 


H064 


SHD 


GUN SHIP 2000 (vga) 


H395 


2HD 


GUN SHIP 2000 MISSION 


H096 


1HD 


MEGA FORTRESS (vga) 


J674 


2DD 


MIG 29 (cgaArga) 


J745 


IDD 


MIRAMAR (ega) 


J70I 


30D 


RAL ROAD TYCON (cgaArga) 


HI 73 


2HD 


RED BARON (vga) 


1413 


8DD 


SECRET WEAPONS LW (vga) 


1007 


4DD 


SIM ANT (vgefter) 


1350 


2DD 


SIM CITY (ega) 


J297 


2DD 


SIM CITY (vga) 


J001 


4DD 


SIM CITY FUTURE (vga) 


1176 


4DD 


SIM CITY GRAPH ANCIENT (vga) 


JS71 


4DD 


SIM EARTH (vga) 


H417 


1HD 


SPECTRE (vga) 


1026 


3DD 


STRIKE ACES (vga) 


J306 


IDD 


THE HUNT OCTOBER (ega) 



1191 


IDD 


10 TH FRAME (b cliche) (ega) 


H053 


1HD 


4D SPORTS BOXNG (vga) 


1113 


4DD 


ABC BOXXING (vga) 


X79 


IDD 


ARCADE VOLEY BALL (ega) 


1174 


2DD 


BUDES OF STEEL (cgaArga) 


1355 


3DD 


BUFALLO BILL (cga*ga) 


J062 


3DD 


CALIFORNIA GAMES II (cgaArga) 


J676 


5DD 


DREAM TEAM (vga) 


1404 


IDO 


EIROPEAN CHAMPION 1992 (vga) 


J559 


IDD 


FERNAN MARTlN(cga}(baaquele) 


H212 


3HD 


HARD BALL 3 (vga) 


1336 


5DD 


HOLE N ONE (golfeXcflaArga) 


J076 


2DD 


NTERNATIONAL SXCER (cgaArg) 


1100 


IDD 


ITALIA 90 (cgaArga) 


J1B4 


2DD 


KINGS OF THE BEACH (ega/vga) 


J191 


2DD 


LAKERS* CELTICS (ega/ega) 


1285 


5DD 


LINKS (vga) 


H499 


4HD 


LINKS 366 (366/svga) 


J205 


3DD 


LOW BLOW (BOXE) (cgaArga) 


H399 


1HD 


NCAA BASKETBALL (vga) 


H455 


2HD 


OLMPIADAS 92 (vga) 


H415 


1HD 


SUPER SKY II (vga) 


J526 


3DD 


TAKE DOWN (lulalivre)(cga) 


J997 


4DD 


TENNS PRO TOUR (egafega) 


H1 12 


1HD 


TENNIS PTO TOUR 2 (vga) 


1200 


200 


WORLD CHAMPION SOCCER (vga) 


J130 


2DD 


WORLD CUP SOCCER (ega) 


J437 


100 


WORLD GAMES (ega) 


J440 


IDD 


WORLD TOURGOLF(cga) 



ffilE 



AIRBONE RANGER (ega/ega) 
BATALHA NAVAL (ega) 
CABAL (ega/ega) 

CONFLICT (ega/aga) 

CRACK DOWN (cga/VQ after) 
GREEN BERET (PC-XTfcga) 
KARI WARRIORS (ega) 
METAL GEAR (ega/egafter) 
OPERATION WOLF (ega) 
PACIFIC ISLAND (ega/vga) 
PATRIOT (vga) 

SUPER CONTRA (ega) 

TASK FORCE 1942 (vga) 
TWLIGHT 2000 (vga) 



BILHARE CARTAS 



H060 1HD AMARILO SLIM POKER (vga) 
J663 IDO BILHAR 3D (ega/vgafter) 

J616 1DD BUCK GAMMON (egaAga) 

J959 1DD CANASTRA (ega) 

J962 1DD DOMINO (ega/ega) 

1265 1DD DRAW POKER (ega) 

1477 1DD JINMY WHITES SNOOKER (vga) 
J247 1DD PC POOLS CHALLENGE (ega) 



COO.rOO 


NOME: 


1340 


3DD 


POKER CHNES (ega/ega) 


1030 


IDD 


POOL 3D (ega/ega) 


J349 


IDD 


STRIP POKER (ega) 


1155 


7DD 


STRIP POKER 3 (vga) 


1266 


IDD 


STRIP POKER EM PORTUGUES 


1249 


IDD 


TRUCO (ega/ega) 


1423 


IDD 


VIDEO POKER (ega/ega) 


JOGOS PARA WINDOWS 


H574 


2HD 


AIR TRAFFIC CONTROLER (306) 


H1 16 


1HD 


BATTLE CH ESS FOR W N DOWS 



WH159 1HD 
H106 1HD 
1263 1DD 
WH229 2HO 
H021 1HD 
H383 2HD 
H641 2HD 
H457 1HD 
W030 tDD 
H443 2HD 
1351 2DD 
W067 1DD 
1347 1DD 
WH201 1HD 
WH203 1H0 
WH172 1HD 



BATTLE SAT (balalha naval) 
CHESS MASTER 3000 FOR WN 
DAMAS FOR WINDOWS 
GAME PACK IV 
JOGOS FOR WINDOWS 
MONOPOLY DELUXE (306) 
PIMBALL WN DOWS (306) 
POKER FOR WINDOWS 
PUZZLE 

RISK FOR WINDOWS (386) 

SIM CITY FOR WINDOWS 
TAKE ONE 

TETRIS FORWINDOWS 
WINSHARK (poker) 

WINWHELL 
ZONE ONE 



RAGOCIWQE 



XU 


IDD 


ADULT GAMES (ega) 


X20 


IDD 


AIDS (ega) 


X54 


IDD 


BOCA (ega) 


X77 


IDD 


CINE PORNO (ega) 


H450 


3HD 


DL-VIEWER (vga) 


X65 


IDD 


EAST SUCKS WEST (vga) 


J630 


IDD 


MAXINE (ega) 


1300 


2DD 


NIKKI (vga) 


1432 


IDD 


PORN0 1 (ega) 


1434 


IDD 


PORNO CARTOONS (ega) 


J262 


IDD 


PORNO STORY (ega) 


HC90 


1HD 


SEXCAPPAD (vga) 


HD49 


2HD 


SUPER PORNO DEMO (vga) 


J786 


IDD 


TELA EROTICA (ega) 




1363 


2DD 


ANMETED MEMORY (vga) 


X20 


IDD 


ATOM IX (vga) 


J03B 


2DD 


BATTLE CHESS (cgaArga) 


H305 


8HD 


BATTLE CHESS 4 000 (vga/wga) 


X74 


IDD 


CHESS MASTER 200 (ega) 


H062 


2HD 


CHESS MASTER 3000 (vga) 


H311 


2HD 


CIVILIZATION (vga) 


1302 


IDD 


COLUMMS (ega) 


X09 


IDD 


CYRUS XAD RE Z 3D (cgaArga) 


1403 


IDD 


DYNAMO (DAMAS) (ega/vga) 


J125 


IDD 


FACES (egafter) 


J040 


ODD 


FACES TETRIS (vga) 


J190 


3DD 


LEMMNGS 1 (vga) 


H40O 


2HD 


LEAMINGS 2 TRI8LES (vga) 


1101 


6DD 


LIVING JIG SAW (vga) 


J096 


IDO 


LOGICAL (vga) 


H193 


1HD 


MICKEY JIG SAW (egaArga) 


J226 


IDD 


MONOPOLY (ega) 


1307 


IDD 


MONOPOLY 2 0 (egaArga) 


J939 


IDD 


PACMAN (egafC-XT) 


1219 


IDD 


RAGMAN (egaArga) 


H410 


5HD 


POPULOUS II (vga) 


H416 


1HD 


SARGON V (vga) 


J303 


IDD 


TETRS (ega) 


H435 


1HD 


TETTRIS CLASSIC (vga) 


H393 


2HD 


THE HUMANS (vga/wga) 


H433 


2HD 


THEATRE OF WAR 


1169 


IDD 


X-MAS LEMMINGS (vga) 


1109 


IDD 


ZARKOV (xadrei/ogaArga) 



EPANCADARIA 



X26 


IDD 


ARKANOID 2{ega) 


X40 


IDD 


ARKANOID 2 (egaArga) 


1362 


IDD 


BANANOID (vga) 


J209 


IDD 


MACADAM BUMPER (ega) 


J2U 


IDD 


MASTER BUSTER {cga/PC-XT} 


J597 


IDD 


NIGHT MISSION (ega) 


J250 


IDD 


PIA6ALL COLLECTION (PC-XT) 


J257 


IDD 


POP CORN (ega) 


H148 


1 HD 


TRISTAN (306Arga) [ 



X34 


IDD 


BARBARtAM (ega/egafter) 1 


1250 


3DD 


BRUCE LEE LIVES (ega/ega) 


X30 


2DD 


DRAGON NNJA (ega/ega) 


J104 


2DD 


DOUBLE DRAGON (ega/tan) 


J106 


IDD 


DOUBLE DRAGON II (ega) 


1151 


3DD 


DOUBLE DRAGON 1! {egaArga) 


H451 


1HD 


DOUBLE DRAGON III (vga) 


H320 


IHD 


FIRST SAMURAI (vga) 


J145 


2DD 


GOLDEN AXE (ega/vgafter) 


J103 


IDD 


KARATEKA (ega) 


J746 


IDD 


NINJA GAIDEN (ega/ega) 


1331 


IDD 


NINJA RABBIT (cgaArga) 


J644 


40 D 


PANZA KICK BOXXING (vga) 


HO 73 


IHD 


PIT FIGHTER (vga) 


J274 


20 D 


RASTAN SAGA (ega) 


J566 


2DD 


RENEGADE (egaNga) 


J295 


2DD 


SHNOBI (cgaArga) 


J515 


3DD 


STREET RGHTER MAN (cgaArga) 


J336 


2DD 


STREET RGHTER (ega/ega) 


H461 


5HD 


STREET FIGHTER B (vga) 


J367 


4DD 


TARTARUGAS NINJA (ega/ega) 


J698 


BDD 


TARTAFHJGAS N NJA 2 (vga) 


Hill 


IHD 


TARTARUGAS NNJA 3 (vga) 


J401 


4DD 


TONGUE OF FATMAN (egaArga) 


H1 19 


IHD 


WRETLE MANIA (vga) 



ATENDEMOS SEU PEDIDO ATE AS 21 HORAS POR TELEFONE 






























CLASSIC SOFT 1 

RUA JOAO JCORP EIRO. 495 - FREGUESIA DO 



TEL /FAX (01 1 ) 875-4644 

O 6 - SAP PAULO - CAPITAL - CEP 02960-000 






FA£A SEU PEDIDO: Por telefooe, fax ou oarta. 

> FORMAS PE PAQAMENTO: 

A) SEOEX A cobrar, vocd #6 pagarA quando retirar o pedido no correio da sua eidade. 
(Lembramos qua os servigoe doe corrdos sdo carissimos) 

B; CHEQUE NOMINAL k CLASSIC SOFT LTDA., para sua oomodidade e eoonomia recomendamos fazer o 
pedido por cheque nominal pois vocd reoebe seu pedido em casa. 

C) DEP6SIT0 BANCARiO: Unibanco - ag. 137 - conta 113 444-4 em nome de Classic Soft 
Bradeeco - ag 1 17*1 - conta 98741-7 em nome de Classic Soft - enviando xerox do depdsrto junto ao pedido. 

DESPESAS POSTAIS: (Regjstrada) pecfidos at& 1 8 discos R$ 2,80 (Prego somente para pagamento em cheque 

itobancario) 



PROMOTES PC 



10 Jogos ou aplic. gonho urn grirtta cJ diaco. 
50 Jogoa ou apllc. ganfw 10 grAtia cJ diaco 

DISCO 5 1/4 HD C/ GRAY R$ 2,00 

DISCO 5 1/4 DD C/GRAV R$ 1,50 

PARA COMPRA ACIMA DE 20 DISCOS 
PAGAMENTO EM DUA3 VEZES: 
metade no ato, metade para 15 dias ap6s. 



COD. OfP NOME/DESCRIQAO 



APLICATIVOS DE DOMINIC* PUBLICO E SHAREWARE PARA PC/XT/AT 






1DD ABOVE & BEYOUND - adminlstra Irtformagfiai passoais. 

1DD ANIMATE FOR WINDOWS - Imagans anlmadas, 

1DD ASTRONOMY CLOCK ■ hora* astrortomlca* • mundlals. 
tHD ASTRONOMY LAB - gara avantos astronOmlcos slmultinios. 
1DD BANG BANG - Jogo da astratfcgla para 2 Jogadoris. 

1DD BtZ WIZ* calc uladoraf Inane *lra. 

I HD BMP COLECTICN 1 - pacot* da talas BMP. 

1HD BMP COLECTION 2 • mail talas. 

IDD BOD FOR WINDOWS • |ogo da raclodnlo coir palavrai. 

IDD BOX PLOT • calcula a fraqulncla da raipoata do falanta. 

IDD BUILDER- cria leones para documanto*. 

IDD CAD VANTAGE - podaroso cad para windows. 

IDD CHEMICAL FOR WINDOWS - modalo da molicula* am 3d. 
1HD EXPLOSIV WINDOWS/DOS • font** graflca* p / monitor. 

IDD FINANCIER PLUS -organize orfamantos, flnanclamanto* ... 
IDD FRACTAL PAINT • programa Intaratlvo pi projatoi graflcoi 
IDD GAME CGLECTION 1 • tris logos da racloclnio tlpo tatrl*. 

IDD GIF 2 BMP - convarta talas .GIF para .BMP. 

IDD HP CALCULATOR - calculadora HP para window*. 

I HD INCCNTACT - complato admlnlstrador da contaio*. 

2HD INSIDE COREL DRAW - vhrlos utilities para window*. 

IDD 10 TEST FO WINDOWS - tests da 01. 

IDD LASER TAME • utllltarlo para Impranoras h laser. 

IDD MATAGRAF V2.4 - gara curva* matamatlca*. 

IDD METRIC CONVERTER - convanor da madidas mitricas. 

1HD MICRO LINK • pacot* da camunlcapflo para modam. 

IDD MONEY SMITH • control* tau* talfia* da cheque. 

IDD MY CATS - gato qua flea capando 0 cursor. 

IDD PAINT SHOP PRO ■ convert*, exlba, altera a Imprlme Imagans 
IDD ROCK FORD - editor provisional da cartfia*. 

IDD SYNC rT • faz fransfarinclade arqulvo* antra micro*. 

IDD TETRIS 3D FRACTAL ■ tatrl* im tris dimansfies. 

IDD TOUCH TYPE TUTOR ■ trains sua datilografla, axcslanta, 

IDD XWCRLD CLOCK • hora* da todo* os paisas do mundo. 

IDD WHOOP IT UP - maximize as fun?6*s ds 10 m dsntro do wind. 
1HD WIN ABC - Infrodugio ao computador para crlanfas. 

2DD WIN GRAB - para Imprlmlr enderegoi sm anvalopss. 

I HD WINFIN - doza programaa para anhlis* flnancalra. 

1HD WINSPELL- taste da ortografla. 






IHD ADVENTURE TOOL KIT • para crlar adventures. 

IDD ALPHABET GAMES • alfabato paracrlangas, pra-ascola. 

IDD AMAND LETTER LOTTO - Jogo pi crlangas. corss a latras. 
IDD ANIMAL MATH ■ apranda a center, somar subtralr ... 

IDD ANIMAL QUEST (vga) • Jogo para crlangas, axcslantal. 

IHD ANIMATED ALPHA BET{ eg d vga}- otlmo p / aprandar ingles. 
IHD ANIMATED MATH (aga) - aptanda a confer com figure*. 

IHD ANIMATED SHAPES(*ga/vga)- p / Idintiflcag&o da figuras 
IHD ANIMATED WORDS(aga'vga)-apr*nda Ingles cl figure* a sons 
IDD BERTS DINCSSAURCS - cria palsagens a voce plnta. 

1 DD BOAT BOX • otlmo Jogo para crlangas. 

IDD BRAINSCAPE - adventure am Ingles. 

IDD BRANOON’S LUNCHBOX • progr. p t IntrodugSo ao taclado. 

1 DD CATCHEM (vga) - otlmo Jogo para crlangas. 

IDD CHILDREN’S GRAPHICS - paradaienhar a contar. 

IDD CLOCK AND MOUSE - apranda a ver hora*. 

IDD COIN IN THE BOX • Jogo para oriental, soma. 

IDD CRAZY SHUFFLE • otlmo Jogo da mimorla. 

IDD EGA COLOR BOOK - talas d daienhos pi crlangas plntaram 
IDD EGA MOUSE PAINT (EGA) - 29 figuras pi plntar. 

1 DD FUNNELS 4 BUCKETS • Jogo com oontas matamailca*. 

IHD JOHN’S ANIMATED - tfvertao para changes. 

IDD KID PAINT (aga) • talas para crlangas plntaram. 

IHD THE ANIMATED MEMORY (aga^vga) • Jogo da mamorla. 

IDD WORD GALLERY - apranda Ingles com dasanhos. 

IDD WORD PROCESSING FOR KIDS • editor da taxto pi crlangas, 
IHD WORD RESCUE • Jogo da ag&o, monte palavra*. 

IHD WUNOER BOCK (vga) • jogo para crlangas d dasanhos. 






IHD ACE ASTRONOMY - tudo sobra 0 alstama solar. 

IDD ASTROCLK • raloglo astronomlco. 

IDD ASTROL 96 • calcula 0 zodlaco, posIgSo do* planatas ... 

IDD ASTROMICAL EPHEMERIS • fornac* mapas astronomlco*. 
IDD COSMOS 6.07 • slmutaglo astronomlca. estilo ptanatarlo. 
2D0 DEEP SPACE 3D - produz mapa estalar. 

1 DD EARTH WATCH • axibiqfto da grafleos da terra a lua. 

IDD GRAVITY SIMULATOR ■ Simula gravldads sntrs os planatas. 
IDD JUPITCR SATELLITE SIM. - slmulagSo 1 sxlblg&o da Jupiter 
IDD LAUNCHER • informal** sobra orbltas. 

IHD MISSION TO MARS • lodas Informagfls* sobra mart*. 

IDD MOONS OF JUPITER - posigfias da Jupiter a suas luas. 

IDD NAVAGATION JUPITOR • programa pf navaga; So marinha. 
IDD PLANETS ■ utIBtarfo d InformagSo* sobra os planatas. 

IDD SUCON SKY - axlba mapa celestial a poslg&o do* planatas 
IDD SKY BASE 2000- cria map as a Image ns do ciu. 

IDD SKY GLOBE 3.0 • faz mapas das estrslas a constelacfi**. 



A0912 IDD 256 DRAW (vga) • editor Qrafioo, axealant*. 

AH91 1 IHD ANATHER PROGRAM (vga) • animates, edlg&o a som. 



COD. 0/D NOME/DESCRIQAO 



A0910 IDD ANSI PAINT - editor graflco. usatabala asc, 

AO 906 IDD CHARTS UNLIMITED* Integra graces a taxto. 

AO907 IDD FINGER MAPS 1.01 - sdfta mapas com dados • Informal**. 

A0906 IDD FINGER PAINT 2.0 - editor graflco facll uao, otlmo. 

A0905 IDD FINGER VGA - procassador da Imagans, plnta a anima. 

A0903 2DD FLOW DRAW 22 • editor da fluxo gramas, mapas ... novoll 

AO 902 1 DD HI-RES RAIMBOW - editor graflco. (ega) 

A090I IDD LEONARDO (ega) • editor graflco d contrufSo da slides. 

A0900 IDD MAC PASTE 2.10 - editor grafico. otlmo. 

AO690 IDD PAINTERS APPRENTICE • facll uso. farramanta pi plntar. 
AH899 IHD PAINT BOX - editor graflco, 

A0897 IDD PARTY DOT- garador da dasanhos artlstlco*. 

A0896 IDD PC ART 4.0 (ega) • editor graflco da facll uso. 



IDD ANY ANGLE 2.65 • aitudo dos trlangulos, nova varsaol 
IHD CADET • editor da taxto p / uso com AUTO CAD. 

IHD CURVE DIGITIZER • vsrsatll editor graflco. 

IDD DICOGO 3.0 • gara coordanadas gaomatrlcas am 2D. 

1 DD DRAFT CHOICE 1 .51 - nova varsao do otlmo cad. 

2HD ENVISION PUBLISHER (VGA) - daktop publishing, axcslantal 
IHD HYPER SLIDE * aprasanta a cria slides, usa talas AUTOCAD 
IDD LAYOUT • crlagto ds dasanhos a famamantas p / m a nut* n? So 
IDD MEGA DRAW 4.0 - farramanta pi dasanhos a anlmagfia*. 

(HD PC DRAFT CAD 3.6 - podaroso cad. 

4DD PC KEY DRAW 3.76a - vsrsatll slsrama graflco, novoll 
IDD PRINT CAD 1.14 - emulador da plotter para ead. 

IDD RECURSIVE REALM 3.0 * sistama pi cria r fractals. 

IDD QUEST V3.I • editor graflco am 3d. otlmo. 



IDD BETTER EYESIGHT • tudo sobra os olhos a saus musculo*. 
IDD BISIM - Imlta aco slstsmas natural*. 

IDD CHEM PACK • complata tabsla periodica. 

IDD CHEMICAL 4.2 - cria mold** da molaculas 3d. nova varsao. 
IDD CHEMVIEW - animagto molecular am 3D. 

IDD ELECTRON • tudo sobra alatron* a slatrlddad*. 

IDD ELEMENT STUOY AID - tudo sobra os ■Ismantos qulmlcos. 

IDD FAMILY TREE - afatua calculos ganaticos. 

1 DD FLAGS - bartdalra* da todos os paisas a astados. 

IHD GEO CLOCK (vga) ■ atlas dlgitalizado. 

IDD HAZADOUS CHEMICAL • analisi ds compatlbllldad* qulmlca. 
IDD LEARN TO SING - inslna 0 alfabato usado pslo mudos. 

IDD LOTUS LEARNING • anslna a usar a planllha lotus 123. 

IDD NATIONS OF WORLD • astatlsticas gsograflcas do paisas. 

IDD PC CALIB - callbra concantragto ds substancias qulmlca*. 

1 DD PC FASTYPE (ega) • otlmo curso ds datilografla. 

IHD THE HEART • tudo sobra 0 coragto humano. 

100 VACATION PLANNRE - Inform apSis a mapas dos EUA • Canada 
IDO WATOR - slmulagto da predadores a prasas. 



IDD ALBUN MASTER - varsatil cataJogador de album. 

IDD BOOK LIBRARIAN • catalogador da llvros proflsslonal. 

I HD BUCK FILE • otlmo programa pi colaclonadora*. 

IDD CASSETE MASTER - catalogs fitas d funnies da Imprassao. 

1 HD CASSETE! - sistama para catalogar fitas K-7, 

1 00 COIN FILE - sistama da inventarlo pi col*g£*i da mosdas. 

1 DD COLLECT) • varsatil slstsma banco de dados. 

IDD FOR ANTIQUE DOC.- p/cafalogar amigos a raroi documantos 
IDD FOR COMIC BOOK - programa para coladonadorss da llvros. 
IDD FOR GUN COLLECTORS • para colaclonadora* da armas. 
IDD INTELICAT - catalogador da (fliqustes. 

IHD MOVIES* banco de dados para fllmas. 



"f yr- -■ *i* -Q- 



IOD BARTENDER 1.1-200 racaltas da bebidas acoqultal*. 

IDD BIORHYTHM • gara llsta da blortitlmo menial. 

IDD COMPUTER BAKER • 99 racaltas p! forno. Banco da dados. 
IHD DIET AIO • piano da diata computadorlzada. banco dados. 

IDD DIET TEST * control* da peso. 

IDD EDNAS’S COOK BOOK • complato sistama para racaltas. 

IDD EKG - Intarsssanta aprssintagSo anvolvando corpo humano. 

1 DD EMS • tscnlcas de amargancla madlca. 

1 DD FAST FOODS - llsta nutrlclonai d ssus valor** protaloos 
IDD FLOWER REMEDY PROGRAM • anslno sobra at floras. 

IDD GOURMET RECIPES • 66 dlfarantas racaltas am formato TXT. 
IDD HEADACHE FREE - InformagMas relatival a dor da cabaca. 
IHD HEALTH AIDE - orlantagSo nutrlclonai. 

1 DD HOME BARTENDERS GUIDE • racaltas ds bsbldas a drinks. 

1 DD INSULIN • prog, pi ajudar na ragulagam ds Iniulina us ad a 
IDD KlhETICS • ajuda 0 medico no control* da doses a drogas. 
IDD NON-MEDICAL • lacnlcas pi suparar sofrlmanto a doras. 

IDD hflJRSE WORKS 2.0 - series da anfermagarn d utllltarloi. 

IDD PRESCRIPTION ASSISTANT • prescHq&o da aflquatas. 

I HD SLIMMER • radug&t da peso pi nival da colastarol alto. 

IHD THE ALTERNATIVE HEALTH • varlos assuntos sobra saud*. 

1 DD THE STRESS TEST • determine sau nival da strati. 

IDD WHY YOU SMOKE - avalla a rtiata procadimarto da fumar. 
IHD YOUR NUTRITIONIST • nutrlcto. anallsa a planajamanto. 



COD. 0/D nome/descriqAo 



A0879 IDD CHART • programa para anganharla eletrlca. 

AH909 1 HO EASE CASE 1 .67 • softwva da anganharla. 

AO 076 IDD NETWORK • crlagfe a anallsa da dreuitos elatronleos. 

AH877 IHD PSPICE - simulador da drculto alatrenlco. 

A0676 IDD RESISTOR COLORf aga)- quia da resistor, c Me ulos am Ohms. 



1 DO AC HUNTER - alta qualidad* rafarant* a talafonaa. 

IDD ADRESS MANAGER < mala dlrata. talafonaa, andaracoa. 

I DD AMORTIZATION • faz calculo* flnancalro* a astlmatlva*. 

IDD BUSINESS ANALYSIS - pragma flnmcalro a estatlttlco. 

IDD CLIENT NOTE FILE • manipula Informagtfias sobra dlantes. 
IDD CONSTRUCTION EST.* aatima material a cuato pi eonatrugfto 
IHD CONTACT PLUS - agenda de talafonas a compramlssoi. 

IDD EASY DIAL 3.6 * programa para uao com modam*. 

1 HD EZ FORMS EXECUTIVE - editor da formul arioa. 

IHD EZ FORM FIRST 1.1 • maitra paracriapio da formdarioa. 
IHD EZ FORMS LITE 1.5- editor da formulario*. 

I HD FAST BUCKS • control* as flnanga* da casa. 

IDD FINANCE ANALIZER 2.0 • calcula emprastimos, dapositos... 
IDD FIND AREA CODE • procure co<*go* da talafonaa not EUA. 
2DD FONE 6. 1 - fornac a preoos da charoadas IntamadonaJs. 

IDD FONE BOOK 3.0 • organize sua agenda talafonica. 

1 HD FORM GENERATOR - editor da taxto d caractaras graflco*. 

1 DD LABEL MAGIC 3.0 1 • ad tor da aflquatas graflca*. 

IDD LOAN CALC.- calcula man sal manta pagt* da ampresflmos 
IDD PC AREA CODE 3.0 • procure area* das ddadaa dot EUA. 
IDD PC BID 2. 1 * preco aaflmado m contratot • trabalhoi. 

2DD PC ESTIMATOR • a labors tabalas de prtcot. 

3DD PC MAIL 2.92 - mala drata, axealent*. 

IHD PHONE 2.20 * agenda talafonica d nomas a enderecos. 

1 DD PHO NE MAN - ag an da da andaracos • talafonas. 

2DD REGIT 4.2 • transform® sau pc am uma caixa raglstradora. 
3DD STOCK CHARTING 3.1 1 • control* da astoqua a marcadoriat. 
IF) 






A0390 IDD 
A056I IDD 
A0004 IDD 
A0532 IDD 
A0006 IDD 
A0655 IDD 
A0025 3D0 
A0484 2DD 
A0447 IDD 
AO309 IDD 
A0764 IDD 
A0763 IDD 
A0779 IDD 
A0564 2DD 
A0729 IDD 
A0486 IDD 
A0569 IDD 
A0786 IDD 
A0785 IDD 
A07B7 IDD 
A0768 IDD 
A0762 IDD 
A0496 IDD 
A0388 IDD 
AO 242 IDD 
A078I 3DD 
A0656 IDD 
A0067 IDD 
A0766 IDD 
A0069 IDD 
A0780 IDD 
A0428 IDD 
A0497 IDD 
A0520 IDD 
A0099 IDD 
A0539 100 
A0646 3DD 
AH801 IHD 
AH0O2 IHD 
A0767 IDD 
A0 105 IDD 
A0777 IDD 
A0444 IDD 
A0575 IDD 
A078B IDD 
A0 113 IDD 
AO 1 14 IDD 
A0778 IDD 






AO08I IDD A-FILTER • calcub pi resistor a valor as p/f II trot, 
AO00O IDD CC CO GO • programa para anganharla civil. 



ADM. E5C0LAS E ACA. - alstama para atcoias a academia*. 
AGENDA - agenda complata com manual am portuguet. 
AGENDA - agenda da compromlsaot. 

AMIGO (ega) - codgo da dafasa do contumldor. 

ASTRAL (zodpc) • faz calculos a mapas astrologloos. 
CADASTRO OE CL1ENTES • cadastre de client**. 
CONSTITUICAO ELETRONICA - consfltulcao brailltira da 88 
CONTABILIDADE - alstama da contablldada. 

CONTA S A PA GAR 8.2 • contas a pagar.(Compasso) 
CONTAS A PAGAR/RECEBER - contas a pager a racabar. 
CONTAS A RECEBER 8.2 • contas a recebaf.(Compasso) 
CONTROLE BANCARIO - control* tuaa flnancas.(Compatso) 
CONTROLE DEESTOOUE 8.2 -otlmo co ntr/aaloqua. (Comp asto) 
COSMICO CONTABILIDADE • sistama da coniabUdad*. 
CRIPTO - crlptografador de programa*. 

CUSTO & FATURAMENTO • tudo para controlar sua flrma. 
DAP 1.1 V147 - tlra as sanhas da )ogo*. 

DISK INDEX - catalogador da dlsquatas. 

ELETRO - execute orcamanto da projatoi alatricos. 

EXTOK 2.09 - control* da astoqua fislco a flnancalro. 
RCHARIO ELETRONICO - banco da dados, agenda... 

FLUXO DE CAIXA 8.2 * sistama da fluxo da caixa. ( Co mpasso). 
FOLHA DE PAGAMENTO • sistama de folha da pagamento. 
FOLHA DE PAGAMENTO • outre otlmo folha d* pagemanto. 
GUIA PAULISTA * guiada hotels, lazw, rastaurantas ... 

INFO 2000 * Irtroducao a Informaflca. 

LDSK • faz aflquatas p/ disco com dratorio. 

LOTO DESDOBRAOO - faz soitalo da loto podando Imprlmlr. 
MALA DIRETA8.2 * super mala drata. (Compasso) 

MALA DIRETA PRO BASE • alatama da mala direta. 

MANUAL 003 SISTEMAS* manual do* si item as da Compel so. 
MULTIMALA 1 .2 • sistama da mala dlrata. 

PC POLILOT • sortak) da loto a loterla aapordva. 

PRONTO * flehario alatronleo. 

SAMI • fantasflea agenda da compromlasoi. 

SENA 91 • sortak) da Jogos para sane. 

SENA 4200 * faz aortaloa a comblnacoas da aana. 

SIS. CONTROLE BANCARIO • control* banevto. 

SIS. CONTROLE FINANCEIRO - control* flnMcairo. 

SI STEM A CONTABIL • sistama da contabllldada Inlagrado. 

SI ST EM A CONTROLE ESTOOUE* control* da astoqua. 
SISTEMA IMOBILIARIA - alstama para imob II arias. 

SISTEMA PA DR AO CONTABIL • slstsma da contablldada. 
SUPER LOTO MASTER - aortalo da loto. 

TBAV 6.004 - anti-virus am portuguat. 

TUTOR DOS 4.01 • tudo sobra 0 dot 4.01. 

TUTOR LOTUS 123 • apranda a utilizer afamoaa planSha. 

WNE - editor da taxtoa am portugua*. 
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ARTIGO 



Guia de Sobrevivencia na Selva do Video 

Conhega detalhes tecnicos do padrao VGA e aprenda como 
identificar o padrao VESA de sua placa 



Jos6 Laurindo Chiappa 



A familiade micros IBMPC e compativeise muito elogiada 
por suas caracteristicas positivas, tais como: boa perfor- 
mance para a sua classe, baixos custos, flexibilidade de 
uso, grande nOmero de softwares disponiveis, etc. 0 lado 
negro, porem, reside em algo que pode ser resumido numa 
frase: ausencia de pad roes. 

A explicagao e simples: ao contrario dos Amiga e dos 
Macintosh, o PC nao usa chips customizados e nao tern 
grandes segredos de arquitetura; desse modo, uma pleiade 
de fabricantes e laboratories de pesquisa diariamente 
trazem a luz novos componentes mais aperfeigoados e mais 
baratos. (Jm exemplo e a placa de Video VGA: quando 
originalmente langada, previa somente 16 cores no seu 
modo de maxima resolugao, numero insuficiente para um 
uso mais categorizado, de modo que o mercado exigiu e os 
laboratories se apressaram em langar placas VGA mais 
aperfeigoadas. 

Infeiizmente, porem, a guerra entre os fabricantes os 
levou a criaiem cada um o seu chipset, sem uma maior 
preocupagao com compatibilidades. 

Chegamos, assim, a situagao atual, em que um usuario 
desavisado adquire d duras penas uma placa SuperVGA 
fbtoreaHstica, com milhoes de cores e megas de RAM mas 
tern que usar o seu software preferido com 16 frustantes 
cores porque a sua placa nao e compativel com o drto 
programa. Na outra ponta da corda, o pobre program ador 
tern que escrever dezenas de drivers, um para cada placa de 
video do mercado. SOCORRO !! 

ISTO E UM TRABALHO PARA VESA!! 

Em 1.992, entra em cena um novo elemento na sopa de 
letrinhas do mercado PC: VESA- Video Eletronics Standards 



Association, Associagao de Padroes Eletronicos e Video, 
uma associagao que represents os interesses de mais de 
60 fabricantes de computadores e componentes, incluindo 
alguns gigantes do mundo PC. As regras emanadas deste 
comite tentam padronizar os servigos e modos de acesso ao 
Video VGA-extendido, o que traria um pouco de ordem e 
tranquilidade a programadores e usuarios. Embora nem 
todos os fabricantes tenham aderido (e em especial os de 
sqgunda linha que abundam no mercado aqui da santa 
terrinha), 6 ja um padrao respeitavel. 

Para que os seus programas, caro leitor, tambem 
participem destes novos tempos devem estar cientes destas 
ditas regras. Visando ao meu proprio uso, criei uma unit que 
demonstra o modo de se acessar e pesquisar hardware 
VESA de video VGA, utilizando acesso direto, de modo a 
qgilizar operagoes de escrita/leitura - alguem ai pensou em 
games? 

Aproveite bastante, e maos h obra ! 



JOSt LAURINDO CHIAPPA e formado em Tecnologia de 
Processamento de Dados pela Universidade Mackenzie, 
trabalha como Cons ultor/Programador e programa em Ba- 
sic, Clipper, C e Pascal. Tern 25 anos de idade e atua na Urea ha 
8 arms. 



FWRJTE.PAS 



Esta UNIT cont&n Rotinas de Escrlta 
direta para places VGA formato VESA, 

e ta mb 4 m de checagem de firmware/ 
hardware de video VESA 

Autor : J. Laurindo Chiappa 

(c) Devil in Miss Jones Soft - 06/ 

Abr/94 
*) 

($R-> 

UNIT FWrite; 

INTERFACE 
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USES Crt; 



VAR 

ScreenWidth, 

ScreenHeight : Byte; 

PROCEDURE FastWrite(S : String; co, ro, at 
: Byte ) ; 

PROCEDURE FasterWrite(S: String; co, ro, at 
s Word); 

PROCEDURE CheckWidthHeight; 

IMPLEMENTATION 

TYPE 

WordArray = ARRAY [0. .65520 DIV 2] OF 
Word; 

VAR 

Display s A WordArray; 

Crt_Cols : Word ABSOLUTE $0040:$004A; 
Crt_Rows : Word ABSOLUTE $0040: $0084; 



PROCEDURE CheckWidthHeight; 

BEGIN 

ScreenWidth := Crt_Cols; 
ScreenHeight : = succ (Crt_Rows) ; 
END; 

(** INITIALIZATION **) 

BEGIN 

CheckWidthHeight ; 

IF LastMode - 7 THEN 

Display : = Ptr($B000, 0) 

ELSE Display ;= Ptr($B800, 0); 
END. 




(* 



PROCEDURE FastWrite(S s String; co, ro, at 
: Byte) ; 

VAR 

Start, WordAttr : Word; 

N : Byte; 



BEGIN 

Start : = pred(ro) * ScreenWidth + pred(co); 
WordAttr := Word (At) SHL 8; 

FOR N := 1 to length (S) DO 
i Display* [ start +pred(N) ] := WordAttr + 
ord(S[N]); 

END; 



•PROCEDURE FasterWrite(S: String; co, ro, at 
: Word); Assembler; 

] ASM 

| MOV AX, ro { 



i DEC AL 
cAlculos servem p/ 

SHL AL, 1 

offset inicial } 

MUL ScreenWidth 
registro AX } 

ADD AX, CO 

} 

DEC AX 

) 

MOV DI, Word (Display) 



aponta p/ o } 

ADD DI, AX 

inicial. } 

MOV AX, Word(Display+2 ) 
MOV ES, AX 

segmento } 

PUSH DS 
LDS SI, S 

para a string } 

XOR CX, CX 
MOV CL, [SI] 

String 4 em CX > 

INC SI 

MOV BH, Byte (At) 

BH } 

SLoop : 



{ Estes 

> 

{ passar o 
{ para o 
{ 

{ 

{ DI agora 
{ offset 

{ ES cont4m o 

{ DS : SI aponta 

{ Tamanho da 

{ Atributo em 



MOVSB { Move um 

caracter p/ Area de Video > 

MOV ES: [DI], BH { . . and o 

respectivo atributo > 

INC DI 



Loop OLoop 
POP DS 
END; 



i 

i 



j 






Este programs demonstra como reconhecer 
e utilizar uma placa VGA/SuperVGA 

de padrao VESA; a fungao da rotina 4 
litil para se detectar modos de re- 

solugao nao-padrao (como 4 sabido, os 
servigos padrao do PC s6 usam re- 

solugao de no mAximo 640x480 em 16 
cores ou 320x200 em 256 cores). 

Obs : as rotinas for am testadas com 
j placas VGA Trident com 512k, que 

atendem As especif icagoes 1.2 do 
: c omitS VESA. Se o programs nao identi- 
fier corretamente uma placa VESA, 
contate o fornecedor para obter um 

upgrade ou um novo release de driver. 

*> 

s PROGRAM Vesalnfo; 
j USES Crt, FWrite; 



ARRAY [0. .65520] OF Char; 
*CharList; 

ARRAY [0. .65520 DIV 2] OF 



*VMList; 

RECORD 

ARRAY [ 1 . . 4 ] OF Char; 
Word; 

CharListPtr; 

Longlnt; 

VMListPtr; 

Byte; 



TYPE 

CharList 
CharListPtr 
VMList 
Word; 

VMListPtr 
InfoBuffer 
VESAsignature 
VESAversion 
OEMString 
Capabilities 
VideoModePtr 
TotalMemory 

em placas VESA 1.1 ou maior} 
Reserved : ARRAY [0 

END; 

Modelnfo = RECORD 
ModeAttributes 
WinAAttributes 
WinBAttributes 
WinGranularity 
WInSize 
WinASegment 
WinBSegment 
WinFuncPtr 
BytesPerScanLine 
{ 0 restante existe SOMENTE se 
ModeAttributes AND 2 <> 0} 



(S omenta 
235] OF Byte; 



Word; 

Byte; 

Byte; 

Word; 

Word; 

Word; 

Word; 

Pointer; 

Word; 



i 


XResolution 


: Word; 




YResolution 


: Word; 




XCharSize 


: Byte; 


1 


YCharSize 


: Byte; 


1 


NumberOf Planes 


: Byte; 




BitsPerPixel 


: Byte; 


[ 


- MUmberOfBanks 


: Byte; 



i 

j 



i 

| 
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MemoryModel 
Banks ize 
NumO £ ImagePage s 
Reserved 
Filler 
Byte; 

END; 



; Byte ; 

: Byte; 

: Byte; 

: Byte; 

: ARRAY [0 . .224] OF 



VAR 

MBuffer 

Buffer 

VidMode, CmpX, CmpY, 
N, X, Y, CmpMode 
Cmp8x8 
CH 

Power2 

Word; 

S 



: Modelnfo; 

: InfoBuffer; 

: Word; 

: Boolean; 

: Char ; 

s ARRAY [0. .15] OF 
: String; 



Function HexW(W : Word) : String; {* 
Retorna string Hexa de 4 Bytes * > 

Const 

Digits : Array [0..$F] of Char = 

' 0123456789ABCDEF' ; 

Begin 

HexW [ 0 ] :» #4; 

HexW[l] s= Digits [hi (W) shr 4] ; 

HexW [2] := Digits [hi (W) and $F] ; 

HexW [3] := Digits [lo(W) shr 4]; 

HexW [4] := Digits [lo(W) and $F] ; 

End; 

FUNCTION SupportsVESA : Boolean; Assem- 
bler; 

ASM 

MOV AH, 4Fh 
MOV AL, OOh 
PUSH DS 



POP ES 

LEA DI, Buffer 
I NT lOh 
CMP AL, 4Fh 
JNE SNoVesa 
MOV AL, 1 
RET 

SNoVesa: 

MOV AL, 0 
END; 

FUNCTION GetVESAVidMode : WORD; Assem- 
bler; 

ASM 

MOV AH, 4Fh 
MOV AL, 03h 
INT lOh 
CMP AH, Oh 
JNE SFailed 
MOV AX, BX 
RET 

GFailed: 

MOV AX, OFFFFh 
END; 



FUNCTION GetModelnf o (M 
ean; Assembler; 

ASM 

MOV AH, 4Fh 
MOV AL, Olh 
MOV CX, M 
PUSH DS 
POP ES 

LEA DI, MBuffer 
INT lOh 
MOV AL, 0 
CMP AH, Oh 
JNE ©Failed 



Word) : Bool- 



5ffl.ECR[]n5 



FONE: (054) 381-1752 
FAX (054) 381 -2668 



cAlculo 

ESTRUTURAL 

- vigas, lages, pilares, sa- 
patas e treligas - R$ 25,00 



C*-*-*} ANDAMENTO DE PROCESSOS - Para 
A I A Advogados - cadastro de autor/r6u, tipo de 
OXO causa e agSo, comarca, andamento no f6rum. 

T Data de pagamentos, audidncias, leilOes, dis- 
tribuigdo, remessa ao tribunal, julgamento, etc. - R$ 25,00 



CONSULT6RIO MEDICO - Cadastro de pacientes 
^ comcampos para registro de consultas/reconsultas, 
^ ciclo evolutivo do tratamento, histdricos, medi- 
^ camentos receitados, internag&es, etc. - R$ 25,00 



OUTROS SISTEMAS: 

Contas a Pagar/Receber- R$ 25,00, Controle de Obras 






DISPOMOS TAMBEM MEDIANTE CONSULTA DE: 

Folhade Pagamento, Livros Fiscais, Corregfio Monetdria, 
Video Locadora, etc... 



LANQAMENTO 

DE R$ 52,50 POR R$ 32,00 
OU R$ 12,50 CADA 

HOME SERIES 

HOME COOK - Cadastro de receitas separado por tipo de pratos (peixe, came 
bovina, frango, peru, porco, etc.) e selegao dos pratos (salgados, doces, 
dietdticos, bebidas, sorvetes, etc.). Super completo. 

HOME BIBLIO - Controle completo de biblioteca. Cadastra livros, revistas, etc. 
Por tttulo, ano de langamento, autor, editora e campo para SINOPSE. 

HOME FONE - Agenda telefbnica simplificada para cadastro Fone/FAX de seus 
amigos e/ou empresas. 

HOME GAME - Controle os cartuchos de video games por tttulo, gdnero, sistema, 
etc. 

HOME MAIL - Mala Direta, com cadastro por Area de atuagflo/servicos (edltoras, 
mddicos.oficinas, etc.). Imprime etiquetas para enderecamento sefecionado por 
qualquer campo do arqulvo. Pode ser usado como cadastro de dientes. 

HOME MUSIC - Controle completo de suas colegOes de K7/CDs/LPs por rltmos. 
autores, gravadoras, etc... Com campo para comentArios. 

HOME RADIO - Para radioamadores. Controle completo de □SO's com cadastro 
de "macanudos" com quern voc& tala. Emite etiqueta paraenvio de cartdes OSL*s. 






comentttrio QSO. 

HOME SOFT - Controle completo dos prog ram as que voc6 possui, com campo 
para produtor, distribuidor, versao, tipo, quantidade de disquetes, venamento da 
taxa de manuten^io, etc... Super completo 

HOME VIDEO - Livre-se dos guias impressos. Controle voc6 meemo os videos 
assistidos. Cadastro com tltuto do video, diretor, produtor, distribuidora, ano de 
langamento e dataem que foi assist Ido, genera, etc... Com campo paraSlNOPSt. 
Super completo. 

qso nove programas para as mais variadas Areas. O sistema HOME SERIES (9 
proa ram as) e acompanhado de um disco de 1 .2 Mb cheto do programas 
SHAREWARE como brinde. 









INC AL 
SFailed: 

END; 

PROCEDURE ShowModelnfo (M : Word); 

BEGIN 

Write ( ' ','$' + HexW(M), ":5); 

IF (NOT GetModelnf o (M) ) OR 

(MBuffer .ModeAttributes AND 2=0) 

THEN 

WriteLn( 'informagao indisponivel 1') 
ELSE 

WITH MBuffer DO 
BEGIN 

IF MemoryModel = 0 THEN 
BEGIN 

Write( 'Text', " :5) ; 

IF XResolution * YResolution 

> 

CmpX * CmpY THEN 
BEGIN 

CmpX : *> XResolution; 

CmpY : = YResolution; 
CmpMode : = M; 

Cmp8x8 : = YCharSize = 8; 
END; 

END 

ELSE Write ( 'Graf :5) ; 

Write (XResolution; 4, 'x' ) ; 

Write (YResolution: 4, " :6) ; 

Write (Power2 [BitsPerPixel] :4, " :8) ; 
WriteLn(XCharSize:3, 'x' , YCharSize) ; 
END; 



PROCEDURE SetSuperVGAMode (M : Word); 
Assembler; 

ASM 

MOV AH, 4Fh 
MOV AL, 02h 
MOV BX, M 
I NT lOh 
END; 

BEGIN 

ClrScr; 

IF NOT SupportsVesa THEN 
BEGIN 

WriteLn( 'Esta placa nao suporta 
VESA' ) ; 

Halt; 

END; 

VidMode := GetVESAVidMode ; 

IF VidMode = $FFFF THEN 
BEGIN 

WriteLn('A tentativa de obter modos 
de video VESA falhou 11.'); 

Halt; 

END; 

IF Buffer .VESAsignature <> 'VESA' THEN 
BEGIN 

Write ('Li o info block VESA, mas 

'); 

WriteLn('a assinatura VESA nao est& 
presente . ' ) ; 

Halt; 

END; 

Write ('Placa suporta VESA. 0 Modo 
Corrente 6 ' ) ; 

WriteLn (VidMode ) ; 

WriteLn; 

WITH Buffer DO 
BEGIN 

Write ( 'Versao VESA ; 

' ,Hi (VesaVersion) ) ; 

WriteLn ( ' . ' , Lo (VesaVersion) ) ; 



Write ( 'String OEM ; »' ) ; 

N := 0; 

REPEAT 

Write (OemString A [N] ) ; 

Inc (N) ; 

UNTIL (OEMString A [N] - #0) OR 
(N > 256); 

WriteLn (""); 

IF VesaVersion > $100 THEN 

WriteLn ( 'Memoria Total : ', 
TotalMemory*64, 'K' ) 

ELSE WriteLn ( 'Check de memoria Total 
Indisponivel em VESA version 1.0'); 
WriteLn; 

Power2[0] := 1; 

FOR N ;= 1 to 15 DO 

Power2 [N] : = 2* Power 2 (pred(N) ] ; 

N := 0; 

CmpMode : = 0; CmpX : = 80; CmpY : = 

25; 

WHILE VideoModePtr A [N] <> $FFFF DO 
BEGIN 

IF N MOD 20 = 0 THEN 
BEGIN 

Write ( 'Aperte <Enter>.'); 
ReadLn; 

ClrScr; 

Write ( ' Modo# Tipo 



Resolugao' ) ; 
Tam. Char'); 



WriteLn ( ‘ 



Cores 



Writeln; 

END; 

ShowModelnfo (VideoModePtr A [N] ) ; 
Inc (N) ; 

END; 

WriteLn; 

END; 

IF CmpMode <> 0 THEN 
BEGIN 

Write ('Por em ',CmpX, 'x',CmpY, 

' modo Texto (S/N) '); 

REPEAT 

CH : = UpCase (ReadKey) ; 

UNTIL (CH = 'S') OR (CH - 'N' ) ; 
WriteLn(CH) ; 

IF CH = 'S' THEN 
BEGIN 

IF Cmp8x8 THEN 

TextMode(LastMode OR Font 8x8); 
SetSuperVGAMode (CmpMode) ; 
Window(l, 1, 100,75) ; 
CheckWidthHeight ; 

FOR Y := 1 to CmpY-1 DO 
BEGIN 

Str (Y: 4 , S); 

S ;= S+' *'; 

REPEAT 

S s= S + ' *' 

UNTIL Length (S) > CmpX; 

S [ 0 ] :» Char (CmpX); 

FastWrite (S, 1, Y, $0F) ; 

END; 

Str(CmpY:4, S); 

FastWrite (S, 1, CmpY, $0F) ; 
FastWrite ( 'Aperte <Enter> ' , 

CmpX- 15, CmpY, $8F) ; 

ReadLn; 

TextMode (VidMode) ; 

END; 

END; 

END. 
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ARTIC5 




VGA 256 cores 

Rotinas graficas para sua placa VGA 256 cores, em Turbo C 



Victor Sant’ Anna 

Resolvi fazer uma “limpa* em meus disquetes de programas e, 
como tenho o pdssimo hSbito de esquecer o que os nomes dos 
programas significant, tive de compilar novamente diversos.deles 
para descobrir o que cada urn deles fazia. Comecei a verificar que 
urn grande amontoado de rotinas em C que acumulei em meus 
disquetes durante os Oltimos meses poderiam servir para algum 
outro programador e resolvi organizar tudo. 

Rquei surpreso com o grande nCimero de bobagens que escrevi, 
mas consegui achar algumas rotinas que serao Gteis para 
programadores iniciantes em Turbo C. 

Vamos comegar falando do modo VGA de 256 cores, resolugao 
320x200. Uma coisa que sempre me intrigou § como alguns 
programadores conseguiam acessar esse modo em BASIC e o meu 
Turbo C 1.5 nao mencionava nada atem dos modos (EGA) 640x200, 
640x350 e 640x480, 16 cores. 0 modo de 320x200x256 estava 
tambdm disponfvel no Microsoft C e no Quick C, mas eu s6 tinha o 
Turbo. 0 modo 320x200 sempre me pareceu o mais interessarrte 
pois era, aparentemente, o mais parecido com o modo CGA que 
sempre utiiizei em meus programas gteficos. Atem disso, apesar 
dos modos disponfveis me deixarem com 16 cores, nao era possfvel 
alterar a palette com suavidade e quantidade de cores que o modo 
de 256 cores proporcionava. 

Com 256 cores eu poderia trabalhar com telas coloridas 
digitalizadas e com 16 cores (EGA=ECA?) nao. Mais tarde descobri 
que havia disponfvel, nosEUA, paracompradores do Turbo C, o driver 
de 256 cores "VGA256.BGr. Mas aj jS era tarde, pois eu jd tinha 
terminado de escrever as rotinas que seguem. Pois apresento 
agora, gentil pGblico leitor, a rotina MODO, que pode chamar o modo 
19 (320x200x256) e a rotina PONTO, que coloca pontos na tela com 
qualquer uma das 256 cores: 

************ if j 

modo(int mode_code) 

{ 

union REGS r; 
r.h.al = mode_code; 
r.h.ah=0: 

int86(0xl0.&r,&r): 



} 

!+ ************ +i 
I* ************ * j 

ponto(int x, int y.int cor) 

{ 

char buf; 
buf=(char)cor; 

pokeb(QxA000, y*320+x, buf): 

} 

/* ************ * j 

A rotina “modo” permite que chamemos qualquer modo grSfico 
(inclusive texto, CGA, EGA e ate Super VGA, desde que voce saiba 
os ntimeros corretos). Para chamar o modo VGA o nOmero 6 19. Para 
voltar ao modo texto (antes de terminar o programa) o c6digo 6 3. 

Para usar a rotina PONTO os patemetros devem ser as 
coordenadas X (0 a 319) e Y (0 a 199) desejadas e a cor (0 a 255). 

Como pode se notar, no modo 19 , urn poke na Area QxAOOO (que 
tern 64K) § o mesmo que "pokear” diretamente a tela. Isto s6 
funciona no modo 19, por isso as rotinas aqui listadas nao 
funcionarao se voce usar outro nGmero. A Area de memdria OxAOOO 
funciona como se fosse uma grande matriz de 320x200 (1 byte) ou. 
se preferir, urn grande vetor de 64000 bytes. Com isto feito, se voce 
tern programas em QBASIC (1.0 ou outro) nesta resolugao em VGA, 
pode gravar a tela com BSAVE e depois usar estas informagdes para 
montar uma rotina que leia sua tela no “C”, dando os pokes certos 
nos lugares certos. 

Voltando ao nosso programa: como a unidade bdsica para 
qualquer desenho 6 o porrto, voc§ jS pode, em teoria, desenhar 
qualquer coisa na tela. Basta criar novas rotinas que chamem a 
rotina PONTO e... pronto! 

A rotina linha, que vem a seguir 6 urn exemplo disso. Adaptei-a 
de uma rotina CGA (do livro: Computagao Gtefica para IBM PC, de 
LeendertAmmeraal.editora Atlas). Aproveiteseusconhecimentos 
de trigonometria e tente fazer rotinas para desenhar cfrcuios 
elipses, etc. 

J+ ************ * j 

linha(int xl, int yl, int x2, int y2, int cor) 
int x,y,t,e,dx,dy,denom,xinc=l,yinc=l; char buf; 
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int veitlonger=0,aux; 

buf=(char)cor; 

dx=x2-xi; dy=y2-yl; 

if(dx<0){ xinc^l; dx=-dx; } 

if(dy<0){ yinc^l; dy=^cfy; } 

if{dy>dx){ vertlonger =1; aux=dx; dx=dy;dy=aux;} 

denom=dx«l; 

t=dy«l; 

e=-dx;x=xl; 

y=yl; 

while(dx— >=0) 

{ 

pokeb(OxAOOO, y*320+x, buO;; 
if((e+^t)>0) 

{ 

if(vertlonger)x+=xinc; 
else y+=yinc; 
e-=denom; 

} 

if(vertlonger) y+=yinc; 
else x+=xinc; 

} 

} 

I* ************ * j 

Com as rotinas acima jS dS para brincar um pouco, mas, para n6s, 
6 insuficiente. Queremos mudar as cores da palette. Acrescente ao 
programa anterior a rotina PALETTE que irS ser usada mais tarde: 

/* ************ */ 
pltflrrtcori, irrt ri. int gi. int bi) 

{ 

char pltb=0,r=0x00,g=0x00,b=0x00; 

r=(char)ri; 

g={char)gi; 

b=(char)bi; 

pttb=(char)cori; 

outportb(968,pltb); 

outportb(969,r); 

outportb<969,g); 

outportb(969,b); 

} 

J* ************ 4 , J 

Agora podemos "brincar": Coloque junto das rotinas acima a 
rotina "main" a seguir: 

/* *** EXEMPLO 1: Linhas e pontos ********* */ 

include <dos.h> 

main() 

{ 

inti; 

modo(19); 

for(i=0:i<300:i++) 

{ 

ponto(rand()%20.rand()%200,rand()%256); 

ponto(300+rand()%20,rand()%200,rand()%256); 

ponto(rand()%320,rand()%20,rand()%256); 

ponto(rand()%320,180+rand()%20,rand()%256); 

linha(50+rand()%220,40+rand()%120,50t-rand()%220, 

40+rand()%120,rand0%256); 



} 

getch(); 

modo(3); 

} 

/* ******************* in j 

VS ao menu "compile” e de um "Build all” e "Run” no programa 
acima (Se voce 6 um programador experience de programasgrSficos 
em Turbo C, deve estar acostumado a linkar a biblioteca de funpoes 
grSficas. Desta vez nao! VocS nao deve ter nenltUm arquivo de 
projeto, como seria normal , ou seja: graphics.lib nao entra em nosso 
programa). 

Depois de observar resultado, mostrar para os amigos, etc. 
modifique 0 programa e observe as possibilidades interessantes 
que a mudanpa de palhete de 256 cores permite: "degrades” em 
diversas cores, que dao a impressao de sombreados e efeito 
tridimensional. Mude a rotina "main” para: 

/* ******* Exemplo 2: palhete suave **** */ 

#include <dos.h> 
main() 

{ 

intij; 

int palette[256][3]; /* para armazenar cores */ 

modo(19); 

for(i=0;i<256;i++) 

{ 

plt(i, 0,0,0); /* ficando preto */ 
linha(i,0,i+60,199,i): 

} 

for(i=0:i<64:i++) 

{ 

palete[i][0]=i; 

palete[i][l]=0: 

palete[i][2]=i; 

plt(i,i,0,i): 

palete{64-H][0]=63; 

palete[64+i][l]=i; 

palete[64+i][2]=63-i: 

plt(64+i,63,i,63-i); 

palete[128+i][0]=63H; 

palete[128+i][l]=63; 

palete[128+i][2]=i; 

plt(128+i,63-l,63,i); 

palete[192+iJ0]=0: 

palete[192+i][l]=63-i; 

palete[192+i][2]=63-i ; 

plt(192+i,0,63-i,63-i); 

} 

getch(); 

for(j=63y>=0;j — ) 

for(i=0;i<256;i++) 

{ 

if(palete[ij[0]>j)palete[i][0] — ; if(palete[i][l]>j)palete[i][l]— ; 
if(palete[i][ 2 ]>j)palete[i][ 2 ]~; 
plt(i,palete[i][ 0 ],palete[i][l],palete[i][ 2 ]); 

} 

modo(3); 

} 

/* *********************** *. j 
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Bonito, nao? Ap6s admirar o trabalho, nao pare por aqui. 
Aproveite para criar rotinas do tipo "putimage’ e "getimage". 
Nio 6 t3o diffcil jd que a area OxAOOO funciona como uma 
grande matriz. Modifique a rotina ponto para ler (peekb) e 
retomar a cor de um ponto e voce terS uma rotina ‘‘getpixel’! 
Assim, aos poucos, vS descobrindo como recriar todas as 
funcoesgrSficas da biblioteca BGI e logo vocSestarS competindo 
com a BORLAND! 

Para terminar, se vocS 6 do tipo trabalhador, reescreva 
novamente a rotina "main’: 

/* ***** Exemplo 3: rosto digitalizado 22x17*/ 

#include <dos.h> 
main() 

{ 

intx,y,i=0,j=0,k=0; 
inttx=22 , ty=17; 
char rosto[374]={ 

0x08 , 0x05 , 0x06 , 0x13 , Oxll , 0x14 , 0x42 , 0x46 , 0x54 
, 0x64 , 0x68 , 0x69 , 0x69 , 0x69 , 0x67 , 0x69 , 0x69 , 0x07 
, 0x07 , OxOE , 0x21 , 0x13 , 0x09 , OxlF , 0x52 , 0x51 , 0x46 
, 0x52 , 0x69 , 0x6A , 0x6A , 0x6A , 0x69 , 0x6A , OxOD , OxOE 
, 0x19 , 0x42 , 0x17 , 0x06 , 0x17 , 0x52 , 0x57 , 0x52 , 0x40 
, 0x40 , 0x67 , 0x6A , 0x6A , 0x6A , 0x60 , 0x10 , 0x16 , 0x32 
, 0x51 , 0x17 , 0x18 , 0x48 , 0x47 , 0x5 D , 0x57 , 0x52 , 0x3C 
, 0x40 , 0x67 , 0x6B , 0x6B , 0x60 , OxlE , 0x32 , 0x4E , 0x58 
, OxlF , OxOC , 0x3B , 0x47 , 0x57 , 0x5D , 0x57 , 0x4D , 0x38 
, 0x40 , 0x65 , 0x6C , 0x60 , 0x35 , 0x4E , 0x58 , 0x56 , 0x2B 
, 0x18 , 0x4B , 0x4E , 0x5D , 0x5D , 0x57 , 0x4A , 0x33 , 0x46 
, 0x47 , 0x65 , 0x6C , 0x45 , 0x50 , 0x58 , 0x58 , 0x47 , 0x42 
, 0x4E , 0x5 D , 0x5D , 0x5D , 0x5B , 0x4A , 0x3E , 0x4C , 0x4A 
, 0x45 , 0x60 , 0x41 , 0x51 , 0x58 , 0x58 , 0x56 , 0x4E , 0x5D 
, 0x62 , 0x61 , 0x58 , 0x53 , 0x51 , 0x4E , 0x4A , 0x51 , 0x4A 
, 0x30 , 0x46 , 0x56 , 0x5 E , 0x50 , 0x58 , 0x58 , 0x5D , 0x50 
, 0x50 , 0x58 , 0x52 , 0x50 , 0x51 , 0x3C , 0x49 , 0x52 , 0x4A 

r 

0x4 D , 0x56 , 0x61 , 0x5C , 0x55 , 0x5C , 0x5F , 0x5F , 0x5F 
, 0x58 , 0x58 , 0x49 , 0x51 , 0x33 , 0x22 , 0x51 , 0x56 , 0x4C 
, 0x51 , 0x58 , 0x51 , 0x4D , 0x56 , 0x50 , 0x5E , 0x61 , 0x50 
, 0x5F , 0x4D , 0x50 , 0x20 , 0x22 , 0x30 , 0x56 , 0x49 , 0x55 
, 0x5C , 0x32 , 0x27 , 0x4A , 0x56 , 0x51 , 0x4D , 0x4D , 0x58 
, 0x44 , 0x49 , 0x28 , 0x2E , 0x28 , 0x51 , 0x4D , 0x58 , 0x56 
, 0x12 , OxlE , 0x52 , 0x5D , 0x58 , 0x4F , 0x44 , 0x49 , 0x23 
, 0x4A , 0x28 , 0x28 , 0x26 , 0x51 , 0x4D , 0x58 , 0x42 , OxOA 
, 0x00 , 0x57 , 0x62 , 0x5E , 0x56 , 0x46 , 0x41 , 0x2A , 0x49 
, OxlA , 0x34 , 0x29 , 0x51 , 0x5A . 0x5E , 0x17 , OxOF , 0x66 
, 0x57 , 0x5 F , 0x61 , 0x5E , 0x46 , 0x2F , 0x44 , 0x30 , OxlD 
, 0x34 , 0x20 , 0x58 , 0x59 , 0x4E , 0x14 , 0x03 , 0x43 , 0x4E 
, 0x5 F , 0x5F , 0x5 E , 0x51 , 0x41 , 0x51 , 0x30 , 0x22 , 0x25 
, 0x44 , 0x5C , 0x58 , 0x30 , OxlB , 0x15 , 0x36 , 0x4E , 0x5F 
, 0x63 , 0x61 . 0x51 , 0x4D , 0x56 , 0x33 . 0x25 , 0x30 , 0x55 
, 0x5C , 0x4D , 0x2B , 0x21 , OxOB , OxlF , 0x53 , 0x61 , 0x5F 
, 0x5C , 0x4D , 0x56 , 0x50 , 0x20 , 0x33 , 0x4D , 0x56 , 0x56 
, 0x3 D , OxlF , OxlC , OxOD , 0x4A , 0x61 , 0x5F , 0x61 , 0x5A 
, 0x40 , 0x50 , 0x51 , 0x40 , 0x56 , 0x56 , 0x4D , 0x39 , 0x37 
, OxlE , 0x19 , 0x30 , 0x5C , 0x5E , 0x50 , 0x58 , 0x51 , 0x49 
, 0x40 , 0x58 , 0x58 , 0x56 , 0x45 , 0x24 , Oxll , 0x35 , 0x27 
, 0x32 , 0x51 , 0x58 , 0x58 , 0x50 , 0x56 , 0x40 , 0x3A , 0x49 
, 0x4D , 0x50 , 0x41 , 0x27 , 0x12 , 0x04 , 0x31 , 0x31 , 0x37 
, 0x49 , 0x49 , 0x4C , 0x40 , 0x49 , 0x3F , 0x2D , 0x3A , 0x30 
, 0x35 , 0x24 , 0x12 . 0x06 , 0x02 } ; 



int pal[109][3]={ 
OxlA, OxlC, 0x26, 
0x06,0x05,0x08, 
0x07,0x07,0x00, 
0x08,0x09,0x13, 
0x10, OxOD, OxOA, 
OxOF, OxOE, OxOE, 
OxOC, OxOE, OxlD, 
0x12,0x14,0x15, 
0x13,0x16,0x17, 
OxOF, 0x14, 0x23, 
OxOF, 0x15, 0x26, 
0x11,0x16,0x27, 
0x11,0x17,0x28, 
0x12, 0x18, 0x2B, 
0x12,0x19,0x20, 
0x12, 0x19, 0x2F, 
0x17, OxlC, 0x2B, 
0x17, OxlB, 0x31, 
OxlF, 0x21, 0x22, 
0x17, Oxl E,0x2F, 
0x19, OxlD, 0x33, 
0x17, OxlD, 0x34, 
OxlA, 0x20, 0x2F, 
OxlA, 0x20, 0x31, 
0x22,0x25,0x28, 
0x23, 0x23, 0x2E, 
OxlF, 0x24, 0x33, 
OxlF, 0x25, 0x36, 
0x25,0x27,0x34, 
0x25,0x27,0x37, 
0x21,0x28,0x39, 
0x28, 0x2A, 0x37, 
0x2D,0x2D,0x33, 
0x2A,0x2C,0x3B, 
0x37,0x35,0x34, 
0x3A,0x3B,0x3C, 
0x3E,0x3E,0x3E 
}; 



0x03,0x01,0x01, 
0x06,0x06,0x09, 
0x07, 0x07, OxOE, 
0x08, OxOA, Oxll, 
0x09, OxOA, 0x13, 
OxOA, OxOC, 0x19, 
OxOD, 0x10, OxlD, 
OxOD, Oxll, 0x20, 
OxOE, 0x13, 0x23, 
OxOF, 0x14, 0x25, 
0x12,0x16,0x23, 
0x14,0x10,0x33, 
0x16,0x11,0x33, 
0x19,0x14,0x32, 
0x14, OxlA, 0x29, 
0x10,0x15,0x34, 
0x13, OxlA, 0x30, 
0x10,0x17,0x36, 
0x15,0x10,0x31, 
0x15,0x10,0x32, 
0x17, OxlE, 0x31, 
OxlA, OxlF, 0x31, 
0x28,0x25,0x21, 
OxlA, 0x20, 0x33, 
OxlB, 0x21, 0x35, 
0x10,0x22,0x35, 
OxlD, 0x23, 0x37, 
0x21,0x26,0x35, 
OxlF, 0x26, 0x38, 
0x22,0x27,0x38, 
0x24,0x28,0x37, 
0x24, 0x2A, 0x39, 
0x27,0x2B,0x3A, 
0x2D,0x2F,0x3A, 
0x36, 0x35, 0x3A, 
0x30, 0x30, 0x3D, 



0x03,0x02,0x01, 
0x06, 0x06, OxOB, 
0x08,0x09,0x10, 
OxOA, OxOC, OxOE, 
0x09, OxOA, 0x15, 
OxOC, OxOF, OxlA, 
OxOD. 0x10, OxlF, 
0x10, 0x13, OxlE, 
Oxll, OxOD, 0x30, 
0x13, OxOE, 0x31, 
OxOE, 0x15, 0x2A, 
OxOE, 0x16, 0x2B, 
0x16,0x12,0x35, 
0x18,0x13,0x34, 
0x18,0x14,0x35, 
0x13, OxlA, 0x2F, 
0x15, OxlC, 0x2D, 
0x15, OxlD, 0x2F, 
0x19,0x10,0x31, 
0x20,0x21,0x27, 
OxlA, OxlF, 0x2E, 
0x18, OxlF, 0x32, 
0x19, OxlF, 0x34, 
OxlD, 0x22, 0x31, 
0x10,0x22,0x33, 
OxlD, 0x23, 0x36, 
OxlF, 0x24, 0x35, 
0x22,0x25,0x37, 
0x21,0x26,0x37, 
0x21,0x28,0x37, 
0x24,0x29,0x39, 
0x28, 0x2A, 0x39, 
0x2A, 0x20, 0x39, 
0x34,0x33,0x37, 
0x3A,0x3B,0x3B, 
0x3C,0x3D,0x3E, 



modo(19);for(x=0;x<109;x++)plt(x,pal[x][2],pal[x]tl],pal[x][0]); 

for(x=0;x<tx;x++) 

for(y=0;y<ty;y++) 

{ 

for(i=10;i<320-tx;i+=tx*2) 

for(j=10;j<200-ty;j+=ty*2) 

pokeb(0xA000,x+i+(y+j)*320,rosto[k]); 

k++; 



} 

getch(); 

modo(3); 

} 

***************+** * i 

Se vocS tiver paciSncia e trabalhar direito, um belo rosto 
feminino (tirado de uma tela digitalizada) deverd surgir em sua 
tela. Beleza! 
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GASOFT INFORMATICA Tel:(011) 231-2367 

lv. Ipiranga, 345 - sala 1107 - Sao Paulo - SP CEP 01046-923 (Metro Republica) 

* PROMOgOES SEMANAIS : Consulte ! Tele f one I Fax : 214 -2650 

IJL/j|Pk*=sr * PRE COS (Discos incluidos) : HD MAXELL = R$ 2,00 / DD VAT = R$ 1,50 
WlJM yl'^T * TAXA DE CORREIO : A Cada 15 disquetes = R$ 2,50 (Carta Registrada) 

1 1 A cada 10 c6pias com disco, ganhe 1 DD gravado h sua escolha. A cada 50, ganhe 9 ! 
x jl \J * GARANTIA : 60 dias contra defeitos de gravagao ou virus. 

* SUPORTE TELEFOnICQ : Dicas de jogos e instrugoes sobre aplicativos. 



TOP 9 - ADVENTURE 



Sana & Max Hit the Road m Hi 

Akfaslf th».Daric 2 (Ingles): 

* ;<sr*eath a Steel Sky 
siljodnet : 

iifj|fettel:Kfllght Sins of Fathitt 




Pedidos: Por carta, telefone ou fax de 
Segunda a Sexta das 9:00 as 18:00 e aos 
Sibados das 10:00 as 17:00. Relacione o 
nome, cbdigo e a quantidade de discos 
de cada programa. Se preferir, visite-nos 
pessoalmente. 



Pagamento: Envie um cheque nominal 
a J&M INFORM ATICA LTD A. no valor 
total de seu pedido, n3o se esquecendo 
de acrescentar uma Taxa de Correio a 
cada 15 disquetes. Nao trabalhamo 
com SEDEX a Cobrar, devido 
roblemas com o Correio. 
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Catdlogo Eletrdnico: Envie um disquete 
HD formatado ou R$1.80. 

Catdlogo Impresso: Gratuito. Pega j a 
seu com Jogos, Aplicativos e Multimedia 



Consulte sobre locayao de 
CD’s para Sao Paulo ! 



















CADFUNC for Windows 



Mario Leite 

Tempo de Visual Basic! Desculpem-me pelo 
deslumbramento, mas e inevitavel. Essa linguagem veio 
preencher em nos, clippeiros, uma tenfvel sensagao de 
vazio enquanto o tao prometido CA-Visual Objects for Clipper 
nao aterrisa no mercado. Ja recebi um "paper” muito 
interessante sobre a arquitetura do novo “Clipper for Win- 
dows”; entretanto, na minha modesta opiniao, acho que 
esta demorando muito o langamento desse produto. 
Enquanto isso descobri o Visual Basle 3.0 (VB); uma 
maravilha de linguagem do tipo que muitos programadores 
sonhavam: robusta , flexivel, e al6m de tudo "for all- 
purpose” no ambiente das janelas. 

Com a entrada do VB em cena (e em grande estilo), 
desfez-se um tenfvel complexo de inferioridade que a gente 
sentia quando via expostos nas vitrines das infoshopping 
aqueies calhamagos de C ++ . Alias, eu sempre me anetei 
com esses ++ ; parecem ions de Carbono I E a pronuncia 
corieta ; seria C mais mais ou C plus plus ?! 

0 pior de tudo era ter que aguentar aqueies caras de 
camisa social(?) de manga curta e gravata lendo o livro (em 
Ingles) e de vez em quando olhando a ral6 por cima dos 
ombros ... A gente se sentia "destamaninho” I! 

Mas agora a coisa mudou; com o VB ficou muito facil 
desenvolver qualquer tipo de aplicagao. Sem misterios ou 
complicagoes desnecessarias, ele resgata a credibilidade 
do nosso velho e bom Basic, aliada ao poder de 
implementagao visual do Windows. 

Estao sendo apresentados excelentes trabalhos de 
divulgagao dessa linguagem com seus fundamentos e 
concertos basicos. Por isso, neste artigo nao nos 
reportaremos de maneira didatica sobre Controles, 
Propriedades, Metodos ou Eventos. 0 nosso proposito aqui 
& descrever um pequeno sistema sobre Controle de Pessoal , 
sem no entanto recorrer aos recursos oferecidos, por 
exempk), pelo controle Data. Com este exemplo mostraremos 
a grande flexibilidade da linguagem na sua integragao entre 
a implementagao visual e a implementagao das linhas de 



codigos das procedures. 

0 nosso sistema, denominado CADFUNC, possui 
basicamente dois arquivos: CADFUNC.MAK (projeto) e 
CADFUNC.FRM (formulario). Alem desses dois, existe o 
modulo externo CADFUNC.BAS (com declaragoes globais a 
nfvel de projeto). 

Na sua essencia o sistema ja e velho conhecido dos 
programadores: um menu de opgdes onde o usuario pode 
fazer varios tipos de transagoes com um cadastro de 
pessoal. Essasopgoessao: Exibir,lncluir,Excluir,Procurar. 
No entanto, a novidade e a possibilidade de incluir a foto do 
funcionario juntamente com os outros dados cadastrais 
num "campo” especrfico para isso. Esse campo (entre 
aspas), na realidade nao se trata de um campo no sentido 
como e referido no mundo dos SGBDs; mesmo porque VB 
nao e (ainda) um verdadeiro gerenciador de banco de dados 
(apesar de possuir recursos que o fazem brilhar tambem 
nessa seara; podemos citar, por exemplo, o ODBC ). De 
qualquer forma, todos nos sabemos que uma linguagem do 
tipo "for DOS " e procedural -tal como o Clipper- , nao dispoe 
de recursos que sozinha possa manipular imagens (no caso 
do Clipper precisaria de bibliotecas externas, tal como a 
CLBC ou a ScanLib). Essa insergao de imagens (fotos, 
desenhos, fcones) e facil de ser conseguida com o VB 3.0. 

jr *V| C? J i ft. f 0 \ S J 1 '-'y ({J; •; 
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A figura 1 mostra o formulArio do projeto com todos os controles usados. 




Caixa de Texto 1 (TxtNome) 
Label 1 (LblNome) 



exibe o nome do funcionario. 
rotulo da Caixa de Texto 1. 



arquivo sera carregado e a fbto colocada dentro do Controle 
Picture PleFunc. 



Caixa de Texto 2 (TxtMatricula) 
Label 2 (LbIMatricula) 

Caixa de Texto 3 (TxtSetor) 
Label 3 (LbISetor) 

Caixa de Texto 4 (Txtlnforme) 



Controle Picture (PicFunc) 



Botao de Comando Proximo 
(CmdProximo) 

Botao de Comando Anterior 
(CmdAnterior) 



exibe a matricula do funcionario. 
rotulo da Caixa de Texto 2. 

exibe o setor do funcionario. 
rotulo da Caixa de Texto 3. 

exibe informagoes sobre o 
funcionario. 

onde e exibida a foto do 
funcionario. 

para ver o proximo registro. 



ESTRUTURA DE DADOS DO SISTEMA 

0 sistema acessa dois arquivos de dados: CADFUNC.DAT 
que contem Nome, Matricula, Setor e Informes sobre o 
funcionario e arquivos *.BMP com as suas respectivas 
fotos. Todos eles devem ficar no diretorio "C:\CADASTRO”. 
A estrutura de dados do arquivo CADFUNC.DAT e a seguinte: 

FieldName Type Width 
Nome String 40 

Matric String 8 

Setor String 9 

Informe String 100 



Pode parecer a definigao da estrutura de um arquivo 
para ver o registro anterior. formato .DBF, mas nao e. Usamos a declaragao Type para 

criar uma variavel tipo definido do seguinte modo: 



Botao de Comando Retomo limpa a tela e retorna ao menu 
(CmdRetomo) 

Ainda na figura 1 vemos uma barra de menu com o tftulo 
File; na verdade esse trtulo possui os rtens que deverao ser 
acionados pelo usuario em tempo de execugao: £xibir, 
lncluir, Excluir, Rrocurar e Sair. A tradicional opgao Alterar 
nao foi inclulda; isto porque configurando a propriedade 
Enabled das caixas de textos como True podemos modificar 
seus conteudos toda vez que o registro do funcionario for 
exibido. De resto, tudo aparece na tela de maneira auto 
explicativa. 

Asatisfagaoqueagente sente ao programaremVBe logo 

apos o termino da fase de Implementagao Visual. Nessa 
etapa ja podemos sentir o poder dessa linguagem; cada 
controle utilizado e disponivel poderia serobjeto de um artigo 
inteiro. £ nesse ponto que absorvemos perfeitamente a 
fi.osofia da programagao "for Windows”, pois entende-se 
realmente o que significa Programagao Orientada a Eventos. 
0 usuario e quern decide os rumos da execugao do 
piograma, atraves de clicks numa opgao ou sobre um botao 
de comando. Alias, e esse o espirito de qualquer programa 
escrito para rodar no ambiente Windows: interface grafica 
amigavel com o usuario. 

Mesmo nao sendo objetivo desse artigo os controle do 
VB, teceremos um rapido comentario sobre o controle 
Picture. 0 VB permite que coloquemos uma figura (desenho, 
foto, imagem) dentro do formulario, dentro de um Controle 
Imagem ou dentro de um Controle Picture. No presente 
trabalho, estamos colocando um desenho (feito com o 
Paintbrush) dentro de um Controle Picture -para simular a 
toto do funcionario- ; entretanto, poderia ser mesmo uma 
foto capturada com um Scanner. Essa “foto" foi salva como 
Bit MaP num arquivo do tipo .BMP; arquivo esse ligado 
logicamente com o registro do funcionario atraves de sua 
matricula. Desse modo a matn'cula do funcionario sendo 
22902-1, entao o arquivo de sua foto e 22902-1. BMP. Esse 



Type Registro 

Nome As String*40 

Matric As String*8 

Setor As String*9 

Informe As String*100 

End Type 

Muito bem; mas... e a foto do funcionario, como sera 
tratada ?! 

Como dito anteriormente, cada foto fica num arquivo 
.BMP (independente do arquivo CADFUNC.DAT). Para que 
seja colocada a foto dentro do Controle Picture no registro 
corrente, usamos a seguinte linha de codigo [Sub 
ShowCurrentPicture() ] : 

PlcFunc.Plcture=LoadPlcture(arqFoto) , onde arqfoto 
poderia ser o seguinte path: "C:\CADASTR0\22902-1.BMP”. 

IMPLEMENTAgAO DAS LINHAS DE CbDIGO 

A listagem mostratodas as definigdes usadas no projeto: 
controles, linhas de codigos dos eventos procedures (Sub), 
procedures de apoio e declaragoes globais a nivel de 
formulario e de projeto. Segundo a convengao do VB, 
primeiro sao apresentada as configuragdes dos controles 
e em seguida as linhas de codigos dos eventos procedures 
e procedures de apoio. As declaragoes globais do modulo 
CADFUNC.BAS foram listadas propositalmente no final 
devido ao fato do VB nao listar normalmente essas 
declaragoes (por nao fazerem parte do formulario). Os 
eventos procedures sao aqueles cujas procedures (Sub) 
possuem um sublinhado (_) logo apos o nome do controle. 
F'sji exemplo, o botao Proximo tern o evento associado 
chamado _Cllck; entao, toda vez que esse botao for clicado 
a procedure Sub CmdPraxlmo_Cllck() sera executada (alias 
vale registrar queela e so elasera executada; nao esq uegamos 
que o VB e uma linguagem orientada a Rmpntna i) Asoutras 
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procedures em cujo nome nao aparece o sublinhado, ou 
melhor, aquelas que nao estao ligadas diretamente a 
qualquer evento disparado pelo usuario, foram crif-das para 
darem suporte ao sistema (tal como uma procedure normal 
ou uma UDF do Clipper). 

Veja por exemplo a procedure ShowCurrentPicture(); ela 
e a responsavel por carregar o arquivo matricula.BMP 
correto e colocar a foto do funcionario dentro da caixa de 
Controle Picture, de acordo com a matncula que Ihe e 
passada. Existem, ainda, outras procedures que saoexecutas 
quando ocorrem eventos inerentes ao ambiente do VB. Por 
exemplo, neste nosso sistema usamos a conhecida proce- 
dure Sub Forni_Load() . 0 evento_Load (ligado aoformulario), 
sempre ocorre quando esse e carregado (na partida do 
programa); desse modo, usamos esse evento procedure 
para configurar alguns controles (em tempo de execu^ao): 
inicializar variaveis, abrir o arquivo de dados, etc. 

Devido estarem razoavelmente documentadas, nao 
comentaremos as procedures de maneira mais detalhada; 
entretanto como puderam notar por este pequeno exemplo, 
o VB possue recursos realmente fantasticos. Com os novos 
recursos incorporados a versaoProfissional, essa linguagem 
tornou-se otima opQao para os desenvolvedores. 

DDE, DLL, MDI, OLE, "Front Ends”, enfim, essa “sopa de 
siglas” que alguns gostam tanto de mencionar, e uma 
"barbada” para o VB. Podemos desenvolver qualquer tipo 
de sistema com ele. Imaginem o VB 4.0 rodando com o 
Windows 4.0 ! Assim nem precisaremos saber se a 
pronuncia correta 6 C mais mais ou C plus plus !!... 
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MODEM INTERNO DE VIDEOTEXTO PARA PC XT/AT 

Placa de modem interna para ser conectada em qualquer dos slots do PC XT/AT/286 / 
386/486. Facil instalapao e baixo consumo. Acompanha manual de instalapao e 
operapao, e disquete com programa de acesso do videotexto homologado pela Telesp. 

MODEM EXTERNO (DE MESA) DE VIDEOTEXTO PARA PC XT/AT 

Portatil, de mesa, usa a porta serial do micro. Ideal para Laptops, possui leds 
indicadores de portadora, receppao, transmissao e alimentapao. Compativel com PC 
XT/AT e portateis. 

MODEM DE VIDEOTEXTO PARA MSX 

Transmite e recebe em 1200/75. Discagem automatica, rediscagem automatica em 
caso de numero ocupado. Contem software residente (Firmware) para operapao no 
videotexto. Produto homologado pela Telesp. 

ESTABILIZADOR / FILTRO DE LINHA / BASE DE MONITOR 

Estabilizador de voltagem com capacidade de 800 VA / 1 KVA (volt amperes ou Watts), 
permite que a tensao de entrada caia ate 95 volts, mantendo a safda estabilizada em 
110 volts. Sistemas de compensapao de voltagem via circuito magnetico, o que 
proporciona compensapao de voltagem com ausencia de picos de comutapao na 
saida, fato comum aos estabilizadores convencionais. 



DESPACHAMOS PARA TODO O BRASIL 

DATAGAME ELETR6NICA LTDA 
FONES : (Oil) 570-7471 E 574-8990 
ESTAMOS CADASTRANDO REVENDAS 




Width = 975 

End 

Begin Menu MnuFile 

Caption = "fiFlle" 

Begin Menu MnuBxibir 

Caption ■ "SExiblr" 

Bnd 

Begin Menu Mnulncluir 

caption = "Alncluir" 

End 

Begin Menu MnuExcluir 

Caption = "SExcluir" 

End 

Begin Menu MnuProcurar 

Caption = "6Procurar" 

End 

Begin Menu MnuSep 
Caption = 

End 

Begin Menu MnuSair 

Caption = "fiSair" 

Bnd 

End 



"&Inoluir" 



"SExoluir" 



Sub CtodP r oximo_C 1 i ek {) 

i Toma os controles vlBiveifl 
' Plag = 1 

' ShowControles (Plag) 

< Se o registro corrente for o ultimo avise o 
usuirio^o eontrirlo exlba _ 0 e carregue foto . 

If currentRecord = Last Re cord Then 
Beep 

MsgBox "Pirn de arquivo 1 " , 48 
Else 

SaveCurrentRecord 

CurrentRecord - CurrentRecord + 1 
ShowCurrentRecord 

ShowCurrentPicture (RegFunc. Metric) 

End If 

' Pocaliza o c&mpo TxtNome 
TxtNome . SetPocus 

End Sub 



SepKo de declaraqOes gerais de CADFUNC . FRM 



' Declara variiveis que devem 
todo o fornnilArio. 

Dim MewMat As String 
urn novo registro 
Dim Incluir As Integer 
de Inclus&o 

Dim BxistMat As Integer 
matrlcula j A existente 
Dim NewRec As Integer 
novo registro 
Dim Flag As Integer 
Visibilidade dos controles 
Dim ArqPoto As String 
foto 

Dim arqDados As String 
dados 

Dim arqTemp As String 
temporArio para swapping 
Dim RegPunc As Registro 
funcionArio 

Dim PileNum As Integer 
arquivo (handle) 

Dim RecordLen As Long 
registro 

Dim CurrentRecord As Long 
Dim LastRecord As Long 
do arquivo 



ser visiveis am 

' Matrlcula de 
' Indicador 
' Indicador de 
' indicador de 



' Arquivo de 

' Arquivo de 

' Arquivo 

' Registro do 

' Numero do 

' Comprimento do 

Registro corrente 
' ultimo registro 



Sub CmdAnterior_Click () 

' Toma os controles visiveis 
Plag = 1 

ShowControles (Plag) 

' Se o registro corrente for o primeiro, 
avise o 

• uffuArio; caso contrArio exiba-o e carregue 

foto 

If CurrentRecord = 1 Then 
Beep 

MsgBox "Inicio de arquivo I", 48 
Else 

SaveCurrentRecord 

CurrentRecord = CurrentRecord - 1 
ShowCurrentRecord 

ShowCurrentPicture (RegFunc. Metric) 

Bnd If 

• Pocaliza o campo TxtNome. 

TxtNome . SetPocus 



Sub cmdRetorno_Click ( ) 

' Salva o registro corrente / Toma controles 

invisiveis . 

SaveCurrentRecord 
Plag = 0 

ShowControles (Plag) 

' Atualiza o titulo da Janela 
FrmCadFunc. Caption = "CADASTRO DE 
FUNCIONARIOS" 

End Sub 



Sub Porm_Load () 

' Toma os controleB invisiveis 
Plag s 0 

ShowControles (Fla) 

' Calcula o tamanho do registro e pega o 
' prdximo handle de arquivo disponivel 
RecordLen = Len (RegPunc) 

PileNum = FreeFile 

' Abre o arquivo para acesso aleatdrio . 
arqDados = "C:\CADASTRO\CADFUNC. DAT- 
Open arqDados For Random As PileNum Len = 
RecordLen 

' Calcula dltimo registro/Preserva registro/ 
Atualiza titulo da janela. 

LastRecord = FileLen( arqDados) / RecordLen 
CurrentRecord = LastRecord 
ShowCurrentRecord 
SaveCurrentRecord 

FrmCadFunc. Caption = "CADASTRO DE 
PUNCIONARIOS" 

End Sub 



Sub MnuBxciuir_Click () 

'Atualiza titulo da janela / Toma controles 
invisiveis 

FrmCadFunc. caption = "CADASTRO DE 
PUNCIONARIOS" 

Flag = 0 

ShowControles (Plag) 

' Declara variAveis auxiliares para a 
exclus&o . 

Dim TmpFileNum 
Dim TmpRegPunc As Registro 
Dim RecNum As Long 
Dim TmpRecNum As Long 
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REDE MULTIMIDIA 






CD VENDAS 


C6DIG0 TfTULO 


PREQO 


281 Tower of the Fear. 


..R$ 39. 


312 Day of Tentacle 


.. R$ 40. 


I 326 Put Put Joins the Parade.. R$ 45. 1 


344 Just Grandma and Me.... 


.. R$45. 


346 Mega Race 


. R$44. 


355 Mad Dog Mcree 


.. R$ 49. 


364 Night Owl's V. 13 

1 407 7 th Guest... 


..R$ 44. 
RS 49 ? 


409 Clipart Heaven 2 


R$49. j 


463 Musical Instruments 


..R$ 69. 


496 ArtGalery. 


. R$ 69. 


525 Forever Browing Garden. 


.R$60. 


571 Mad Dog il 


R$ 76. | 


578 Indiana Jones. 

588 BethoveaS* 1 


.R$ 65. 
RS 70 


595 Rebel Assault 


.R$65. 


657 Hell Cab 


R$ 80. 


685 Dracula Unleashed 


R$ 75. 


694 Critical Path 


.R$ 80. 


699 Ms Encarta 


R$ 78. 



Desejo receber os seguintes CD's N° 



Acrescer + R$ 5 por cada CD para custo do Sedex. Para o que estou enviando cheque 

nominal d Minimax Processamento de Dados Ltda. no valor de R$ 

Nome: 

Enderego: 

Cidade: Estado: CEP: 

Enviar o cupom (ou xerox) acompanhado do cheque para INTEGRAL HARD/SOFT~ \C/ ENTER p"RESS 
EDITORA LTDA. - Rua Lourengo Ribeiro, 124 - A - Maria da Graga - Rio de Janeiro - RJ - 21050-510 












Dim Matrix As String 
Dim Found As Integer 

' Recebe do usuArio a matrieula a ser 

eXCl Matrlx = InputBoxS ("Bntre com a matrieula:", 
“Bxcluir" ) 

' Se n&o entrar com nenhuma matrieula, sai da 

procedure . 

If Matrix = "" Then 
Bxit Sub 
End If 

» Procure o registro com a matrieula a ser 

excluida . 

Found = False 

Poj? RecNum = 1 To LastRecord 

Get #FileSum, RecNum, TmpRegFunc 
If Matrix = 

UCase (TrimtTnpRegFunc. Metric) ) Then 

Found = True ' Achou o registro 

Bxit For 
End If 



' Se o registro foi localizado, salve-o / 
Exiba-o / Carregue foto, 

' caso contrArio, avise o usuArio e saia da 
procedure . 

If Found = True Then 
Flag = 1 

ShowControles (Flag) 

CurrentRecord = RecNum 
ShowCurrentRecord 

ShowCurrentPicture (RegFunc. Metric) 

Blse 

Beep 

MsgBox "FunclonArio com matrieula " + 
Matrix + * n&o cadastrado 1" 

Exit Sub 
End If 

' Se o usuArio nBo confirmer a exclus&o sai 
da procedure 

If MsgBox ( “Exclui o registro corrente ?", 4) 
<> 6 Then 

Exit Sub 
End If 

' Se o arquivo CADFUNC . TMP jA existir e se 
for igual a 

' CADFUNC . DAT , ent&o apague-o do disco. 
arqDados = "C:\CADASTRO\CADFUNC.DAT" 
arqTemp = "C:\CADASTRO\CADFUNC.TMP" 

If Dir (arqTemp) = arqDados Then 
Kill arqTemp 
End If 

' Cria CADFUNC. TMP com o mesmo formato de 
CADFUNC . DAT 

TmpFileNum = FreeFile 

Open arqTemp For Random As TmpFileNum Len = 
RecordLen 

' Copia todos os registros de CADFUNC . DAT 
para CADFUNC. TMP, 

' exceto o registro corrente. 

RecNum = 1 
TmpRecNum = 1 

Do While RecNum < LastRecord + 1 
If RecNum <> CurrentRecord Then 

Get #FileNum, RecNum, TmpRegFunc 
Put #TmpFileNum, TmpRecNum, TmpRegFunc 
TmpRecNum = TmpRecNum + 1 
End If 

RecNum ■ RecNum + 1 
Loop 

' Bxclui CADFUNC . DAT 
Close FileNum 
Kill arqDados 

' Renomeia CADFUNC. TMP para CADFUNC . DAT 
Close TmpFileNum 



Name arqTemp As arqDados 



' Reabre CADFUNC . DAT 
FileNum = FreeFile 

Open arqDados For Random As FileNum Len - 
RecordLen 

> Atualiza LastRecord como anterior. 
LastRecord = LastRecord - 1 

, se LastRecord for zero entAo, considere-o 

como sendo , 

• o primeiro (© unico) do arquivo. 

If LastRecord « 0 Then 
LastRecord = 1 
Bnd If 

, se o registro corrente estiver fora ds 
escopo, ent&o 

' oonsidere-o como sendo o ultimo. 

If CurrentRecord > LastRecord Then 
CurrentRecord - LastRecord 
End If 

' Apaga arquivo de foto do disco 
ArqFoto = "C:\CADASTRO\" + 

TrlmfRegFunc. Metric) + ".BMP" 

On Error QoTo Sem_ArqF°to 
Kill ArqFoto 

' Exibe registro corrente/Carrega foto/ 
Focalize TxtNome . 

ShowCurrentRecord 

ShowCurrentPicture (RegFunc. Metric) 

TxtNome . SetFocus 
Exit Sub 

Sem_ArqFoto : 

'N&o existe o arquivo de foto 
Resume Next 

Bnd Sub 



Sub MnuExibir_click () 

' Fecha arquivos / Torna controles visiveis / 
Focalize TxtNome. 

Close 
Flag = 1 

ShowControles (Flag) 

TxtNome . SetFocus 

' Calcula o tamanho do registro / Pega 
prdximo handle livre. 

RecordLen = Len (RegFunc) 

FileNum = FreeFile 

' Abre o arquivo para acesso aleatdrio. 
arqDados = "C:\CADASTRO\CADFUNC.DAT" 

Open arqDados For Random As FileNum Len = 
RecordLen 

' Caso nenhum registro tenha sido induido, 
calcula ultimo registro 

If NeWRec = 0 Then 
LastRecord = FileLen (arqDados) / 

RecordLen 

Else 

LasRecord = NewRec ' Novo registro foi 

incluido 
End If 

' Atualiza e exibe o registro corrente / 
Carrega foto 

CurrentRecord = 1 
ShowCurrentRecord 

ShowCurrentPicture (RegFunc .Matric) 

End Sub 



Sub MnuIncluir_Click ( ) 
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'Atualiza titulo da janela 
FrmCadFunc . Caption = "CADASTRO DB 
FDNCIONARIOS" 

BxistMat = 0 

Incluir = -1 'Flag para 
MnuProcurar_Click ( ) 

MnuProcurar_Click 

If BxistMat = -1 Then 
Beep 

MsgBox "FuncionArio j4 cadastrado" 
Incluir = 0 
Bxit Sub 

Elself ExietMat = 1 Then ' Nenhuma 
matricula foi entrada 
Bxit Sub 
End If 

' Torna oa controlea viaiveia 
Flag = 1 

ShowControlea (Flag) 

' Salva o regiatro corrente. 
SaveCurrentRecord 

' Adiciona urn regiatro em branco. 

LaatRecord = LaatRecord + 1 
RegFunc . Nome = « « 

RegFunc . Matric = NewMat 
RegFunc . Setor * " * 

RegFunc . Informs = » « 

Fut #FileNum, LaatRecord, RegFunc 

' Torna regiatro corrente o ultimo. 
CurrentRecord = LaatRecord 

Moatra o regiatro que acabou de aer criado 

com 

f oto ' 08 dadOB para 8erem preenchldoa. / Carrega 
ShowCurrentRecord 

ShowCurrentPicture (RegFunc. Matric) 

NewRec = LaatRecord ' Flag t>ara 

MnuExlblr_Click ( ) P 

' Focaliza o campo TxtNome 
TxtNome . SetFocua 

End Sub 



Sub MnuProcurar_Click () 

inviaiveia^ 88 da janela / Torna controlea 

FrmCadFunc . Caption = "CADASTRO DE 
FDNCIONARIOS" 

Flag = 0 

ShowControlea (Flag) 

' Declara varlSveia auxiliarea para procurar. 

Dim Matrix Aa String 

Dim Found Aa Integer 

Dim RecNum Aa Long 

Dim TmpRegFunc Aa Regiatro 

' Recebe do usuArio a matricula a aer 
procurada . 

Matrix = InputBox$ ( "Entre com a matricula:", 
Pesquisa*) 

da procedure . tiver entrado nenhuma matricula, aai 
If Matrix = "» Then 
BxlatMat = l 
Exit Sub 
End If 

Procura pela matricula deaelada. 

Found = False 

For RecNum = 1 To LaatRecord 



Set #FileNum, RecNum, TmpRegFunc 
If Matrix = 

DCase (Trim (TmpRegFunc. Matric) ) Then 

Found = True ' Bncontrou a 

matricula 

Bxit For 
End If 

Next 

' Caso o regiatro correto tenha sido 
encontrado, entSo 

' Salve o registro/Exiba-o / Car r egue foto/ 
Focalize TxtNome . 

If Found = True Then 
BxistMat = -l 
Flag = 1 

ShowControlea (Flag) ' Toma controlea 
viaiveia 

SaveCurrentRecord 
CurrentRecord = RecNum 
ShowCurrentRecord 

ShowCurrentPicture (RegFunc .Matric) 
TxtNome . SetFocua 
Else 

BxistMat = 0 
If Incluir = o Then 
Beep 

MsgBox "FuncionArio com matricula * + 
Matrix + " nSo cadastrado 1 " 

Exit Sub 

Blae ' Procura incluir novo regiatro 
NewMat = Trim(Matrix) 

End If 
End If 

End Sub 



Sub MnuSair_Click () 



' Encerra o programs 
End 



End Sub 



Sub SaveCurrentRecord () 

Freenche RegFunc com os dados corretamente 
exibidos . 

RegFunc. Nome = TxtNome. Text 
RegFunc. Matric = Txtmatricula.Text 
RegFunc . Setor = TxtSetor .Text 
RegFunc . Inf orme = Txtlnforme.Text 

Salva RegRunc no regiatro corrente. 

Fut #FileNum, CurrentRecord, RegFunc 

End Sub 



Sub ShowControlea (Flag) 

t , 1 - F f aff = 0 Then ' Torna os controlea 

invisiveis 

LblNome. Visible = False 
TxtNome. Visible = False 
LblMatrlcula. Visible = False 
Txtmatricula. Visible = False 
LblSetor. Visible = False 
TxtSetor. Visible = False 
PicFune. Visible = False 
Txtlnf orme. Visible = False 
CmdProximo. Visible = False 
CmdAnterior. Visible = False 
CmdRetorno. Visible = False 

visiveis If Flaff = 1 The “ ' Torna 08 oontrole 
LblNome. Visible = True 
TxtNome . Visible = True 
LblMatricula. Visible = True 
Txtmatricula. Visible = True 
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HOT SHAREWARE! 




I ULTIMAS IMOVIDADES 



RAPTOR 2B 

O melhor jogo espacial j£ criado para o PC! 

FIRE & ICE 1H 

No estilo do "Sonic", Undo e fanWstico! 

XARGON 1H 

Excelerrte aventura tipo "Prince of Persia". 

MUTANT BATS OF DOOM IB 
Um game para os saudosos do "Galaga"! 
ZOOL IB 

Farrtistico jogo no estilo do "Sonic"! 
DUKE NUKEM II IB 
Sensacional sequencia ao "Duke Nukem I"! 
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CATACOMB ABYSS 

Um dos melhores "RPG". Todo em 3-D! 1 S 



/ jt 

Colorfuldemofrom 
Knowledge Adventure 

3-D DINOSAUR ADVENTURE 

Ayoia --in a squetes uma das maiores JijSj 

sensacoes dos CD-ROM 1 . '-■ A 

Uma completa enciclopedia com folos «■ - \ 
sons e animapoes sobre dinossauros! OllM.J 

Ml! 
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PAGE PLUS for WINDOWS 
Um dos nossos maiores "best-sellers"! 
Simplesmente o melhor sistema de 
desk-top publishing em shareware! ^ g 



BIO MENACE 



Uma super aventura num future sombrio! IS 



F:+T4-y^:4v»>T-»>T-fT': 






LANDS OF LORE 

Uma grande chance para voce entrar no 
mundo dos "role-playing games”! IS 








mmm 



ELECTROBODY 

Uni jogo super emocionante! Sua mis- 
sSo: combater diversos monstros! \ | 





OSCAR 

Similar ao "Sonic" dos video-games, 

Oscar 6 um excelerrte jogo de agSo! 1 S 



QUICK MENU III 

A me|hor maneira de arrumar o winchester! 1 3 



KOMBATZONE 






+ + + + Ffifi 
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CADA 0 = R$ S,00 
CADA H = R$ 3,00 

Atengao: Todos os programas s3o 
gravados em disquetes de alta 
densidade, requerem monitor “VGA" e 
“winchester". Todos os programas 
podem ser gravados em disquetes de 
3 1/2 ou 5 1/4, exceto pelo programs 
“3D Dinosaur Adventure", que pode ser 
gravado somente em disquetes de 3 
1/2! O pedido minimo e de 3 (tres) 
disquetes. Para pedir pelo corre'o, envie 
vale-postal ou cheque nominal & 
NEMESIS INFORMATICA LTDA. 
Caixa postal 4.S83 Cep 20.001-970 - 
Rio de Janeiro - RJ. Ou venha ao 
nosso "show-room" na Rua Sete de 
Setembro, 92 sala 1.203 - Centro 
Conhega o nosso sistema de vendas 
pelo telefone: TEL (021) 242-0348 ou 
FAX (021) 242-4760 Solicite nosso 
catalogocompletocheiode novidades! 
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HOME DESIGN for WINDOWS __ 
A palavra final para plantas de arquitetura! 211 



SANGO FIGHTER :* 

Mais \io'.c".to que "Mortal Kombat"' D “ 



BODY BLOWS 

Muito melhor que "Street Fighter 2"' IS 




ORGANIZER for WINDOWS 
A vers§o shareware desta famosa agenda! j 
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MULTIMIDIA SEM CD ROM || 



WINDOWS VIDEOBASE 1 hi 

Banco de dados com imagens e sons' 

ANIMOTION VGA DEMO IB 

Fantastica demonstragao de efeitos 

MULTIMEDIA CREATIONS 2H 

Veja de que a multimidia e capaz 1 

MULTIMEDIA MADNESS IB 

Mais sensacionais efeitos multimidia' 

CARTOONS MAKER 6B 

Crie suas proprias ammacoes graficas ' 

MULTIMEDIA 4 WINDOWS 2H 

Coloque mutimidia no seu Windows' 

MULTIMEDIA BATCHS IB 

Imagens e sons nos arquivos " BAT” 1 

MULTIMEDIA K-SCOPE IB 

Super "demo" com imagens e sons 

ACTION PLAY WINDOWS IB 

Programa gerericiador de Multimidia 

AUTHORWARE LITE WIN 2B 

A versao "shareware" deste programa 

LINK WAY LITE IB 

Concatenador de arquivos multimidia 

STORYBOARD LIVE 2.0 5B 

A versao "shareware" deste programa 

DWIDEO IBM DEMO 2B 

As novidades em multimidia da IBM' 

ANIMATION WORKS WIN IB 

A versao "shareware deste programa 1 

BLAST-OFF WINDOWS lli.'i 

Executa " FLI" " MID", " BMP", etc 

FANTAVISION for IBM/PC IB 

A "versao "shareware" deste programa' 



EMPIRE SOCCER COPA 94 

O melhor jogo de futebol para o PC. 1 1 






SIMMS* I 
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MSX EMULATOR 0.03 beta IB 

■ Rode no PC os programas dos MSX' 

; APPLE II EMULATOR IB jlgg 

■ Digite e execute os programas Apple' :!£■$ 

• COMMODORE 64 EMUL. IB !$£; 

■ Rode no PC programas do Commodore' jijg&j 

ZX SPECTRUM EMULATOR IB ||| 

Rode no PC os cogramas do TK-90X 1 j'n;.; 



Game 
of the 
month.. 



RAPTOR 

0 melhor jogo espacial para o PC 




tV. 
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CASTLE WOLFENSTEIN 3D 

O mais classico dos jogos, agora 3D! 



CORRIDOR 7 

Sensacional sequencia ao "DOOM". 



XARGON 

Excelente aventura tipo Rastan Saga. ^ | 



ASSEMBLY 93/94 DEMOS 

UNREAL DEMO (CONTEST WIN) 1 . 

Fantastica demo com otimos sons e anwtacoes 

UNREAL 2 SECOND REALITY 2B 

Os novos delirios dos produtores da UT-J REAL 1 

CRYSTAL DREAM (VOL. 1 ) IB 

Uma das mais empolgantes demos europeias 

CRYSTAL DREAM (VOL. 2) 2B 

Sensacional sequencia a "Crystal Dream T" 

ELECTROFORCE DEMO 1 . 

Mais efeitos visuais e sonoros nesta super demo 

PUBLIC NMI JUMP DEMO IB 

Eletrizante demo dos proqramadores da Europa 

UNTITLED VGA DEMO IB 

A mais nova demo com os mais variados efeitos 



PAINT-SHOP PRO for WINDOWS IB 

Excelente programa para edigdo grSfica e fotos! 
GRAPHIC WORKSHOP WINDOWS IB 

O melhor e mais complete conversor de telas! 
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ENVISION PUBLISHER 2.0 

O melhor em editorag§o eletronica DOS! 1 1 



THE FIRST SAMURAI 

Sensacional jogo de luta e aventura! \ \ 



2B 



STARLORD |l NEOPAINT 2.02 

Enfrente terrlveis batalhas espaciais! 10 8 B O mais poderoso editor grifico para DOS! \ \ 











LblSetor .Visible = True 
TxtSetor .Visible = True 
PicFunc. Visible = True 
Txtlnforme. Visible = True 
CmdProximo. Visible 3 True 
CmdAnterior. Visible = True 
CmdRetorno. Visible = True 
End If 



End Sub 



Sub ShowCurr ent Picture (MatFunc As String) 

' Carrega o arquivo de foto do registro 
corrente 

ArqFoto S "C:\CADASTRO\" + Trim(MatFuno) + 
" .BMP* 

If ArqFoto <> "C:\CADASTRO\-BMP” Then 
On Error Q 0 T 0 Sem_Foto 
PicFunc . Picture = LoadPicture ("") 
PicFunc . Picture = LoadPicture (ArqFoto) 
Else 

PicFunc. Visible = False ' Esconde 
controle Picture 
End If 
Exit Sub 

Sem_Foto : 

' 0 arquivo de foto n&o existe 
PicFunc. Vi sible = False 
Resume Next 



TxtSetor .Text = Trim(RegFunc.Setor) 
Txtlnforme. Text = Trim (RegFunc. Informe) 

' Atualiza titulo da janela com o registro 
corrente 

Titlel = -CADASTRO DE FUNCIONARIOS' + 

Space$ (9) 

Title2 = Reg: * + 

Str$(CurrentRecord) + "/" 

Title3 = Str$ (LastRecord) 

FrmCadFunc. Caption = Titlel + Title2 + Titles 



' CADFUNC . BAS 

'Mddulo que contdm dedaragfies globais para 
varidveis que 

'devem ser visiveis em todo o projeto. 
'Todas as vardveis devem ser dedaradas. 
Option Explicit 

'Declara uma varidvel tipo deflaldo que 

corresponde a urn 

'registro no arquivo CADFUNC . DAT 

Type Registro 



Nome 


As 


String* 40 


Matric 


AS 


String * 8 


Setor 


As 


String* 9 


Informe 


As 


Strlng*100 



End Type 



CADFUNC.BAS 



Sub ShowCurrentRecord ( ) 

' Declara variiveis auxiliares para o titulo 
da janela. 

Dim Titlel As string 
Dim Title2 As String 
Dim Titles As String 

' Preenche RegFunc com os dados do registro 
corrente . 

Qet #FileNum, CurrentRecord, RegFunc 

' Exibe o registro do fundondrio. 

Txt Nome. Text = Trim (RegFunc. Nome) 
Txtmatricula . Text = Trim (RegFunc. Metric) 



' Mddulo que contdm declaragSes globais para 
varidves que 

' devem ser visiveis em todo o projeto 

'Todas as varidvels precisam ser dedaradas. 
Option Bxplicit 

' Declara uma varidvel tipo definido que 
corresponde a um 

' registro no arquivo CADFUNC . DAT 
Type Registro 

Nome As String * 40 

Metric As String * 8 

Setor As String * 9 

Informe As String * 100 

End Type 


















NAO PERCA 
ESTA PROMOQAO: 
40% de desconto 



Na compra do GRAPHOS III e mais um jogo vocfi ganha 40% de 
desconto no valor total do pedido e recede ainda, inteiramente gratis, o 
PRO KIT topview para fazer as incriveis animates da segSo Bitmap. 



ftp* 



[GRRPHDG 



Forme um grupo de jogadores, pois a 
PRO KIT esta langando sua mais 
fantastica aventura no reino dos jogos in- 
teligentes: um autentico RPG para com- 
putadores. 

0 mestre cria os cenarios onde 
acontecerao as missbes e os jogadores 
sao colocados frente as mais diversas 
situagoes. Ao terminar uma partida, o 
mestre avalia o desempenho do jogador 
e, se for o caso, concede-lhe um talisma 
de forga e conhecimento, que poderA ser 
usado nas proximas missbes. 

Os jogadores podem atb mesmo juntar 
suas forgas para veneer uma missao mais 
complexa ou para combater um guardiao 
mais poderoso. 

As missbes podem ser simples ou pos- 
suir diversos nfveis de dificuldade, com 
iniimeros perigos, armadilhas, guardiaes 
e a temfvel aparigao WAHAMEC - um ser 
etAreo que busca materializar-se em 
nosso universo. 



A criagao das missoes e extremamente 
simples e totalmente comandada por 
icones. 0 mestre pode visualizar cada 
uma das salas do subterraneo e 
selecionar ate mesmo o tipo de parade 
que as formam. 

Ao praparar um cenario, o mestre da a 
cada jogador um disco contendo todo o 
sistema rasponsavel pelo jogo. Ao ter- 
minar a missao, o jogador devolve o disco 
para a sua avaliagao e entao recebe uma 
palavra magica, que contbm todo o seu 
conhecimento e forga. 

Requisites: 

PC 286/386 - VGA 256Kb - A: 1 .2Mb - mouse 

□ Xingu R$ 35,00 




versdo 5.0 

Totalmente escrito em Assembler, o 
GRAPHOS III A o mais ripido editor para 
o PC e um dos poucos que nao exige 
megas e megas de memdria para ser ex- 
ecutado. Tudo nele e simples e tacit de 



AI6m dos racursos tradidonais de edigao grafica, tais como linhas, retangulos, raios, 
circulos, fill, spray, inversao, rotagao, espelhamento, etc, o GRAPHOS III possui ainda 
ferramentas espedais para corte e duplicagao de pedagos da tela, zoom para 
corregbes delicadas nos desenhos, troca de atributos e uma nova ferramenta para uso 
com os padroes graficos prd-definidos. 

A grande novidade desta versao 6 o arquivo Clipboard, que pode manipular atb 180 
telas. Essas telas podem ser posteriormente compactadas num unico arquivo e integrar 
um sistema de slide show simples e fAcil de programar. £ possivel controlar o tipo de 
efeito especial que serd usado para mostrar a tela, o tempo que ela permaneceri 
mostrada e atb mesmo associar uma tecla a cada tela. O sistema pode criar um 
programa execut&vel, para o slide show, que independe do GRAPHOS III para fun- 
donar. 

O editor de alfabetos permite que o usuario crie e edite alfabetos proporcionais, com 
2 pixels de altura ate 16 pixels. Novos racursos de clipping e captura grafica aumentam 
consideravelmente o poder dos editores de padroes e de alfabetos. 

A edigao da palette esta mais simples ainda. Com poucos comandos do mouse 6 
possivel alterar as intensidades de RGB de cada cor. Albm disso, 6 possivel controlar a 
intensidade (claro/escuro) das cores e calcular o tom de cinza correspondentB da cor. 

O programa GRAPHOS III ainda permite que se grave ou recupere arquivos no for- 
mato TIFF, nao compactado, com definigao de cores. 

Requisites: 

PC 286/386 - VGA 256Kb - A: 1 ,2Mb - MS mouse 

ED Graphos III (versao 5.0) R$ 72,00 



CGA bVgT 

O mais tradicional Adventure escrito em portugues. Dez an os de sucesso . 

□ Amazonia (CGA/ VGA) R$ 15,00 






Renat o Degiovani 



A AVENTURA ESTA 
APENAS COMEQANDO 



Prepare-se para uma incrivel aventura no espago, 
em busca de um pequeno planeta azul. O Nautilus e um jogo de estrategia, que iri 
colocar em teste sua habilidade no comando de uma espagonave. 



Caracteristicas da nave: 

• Controles por mouse 

• Tela de informagoes 

• Dieirio de bordo 

• Sistemas de an&lise 

• Torpedos fotbnicos e phasers 

• Velocidade WARP 

• Botao de autodestruigao 




Requisitos: 

PC 286/386 - VGA 256Kb - A: 1 ,2Mb - MS mouse 

□ Nautilus R$ 25,00 






AriGRfi j 

Seus nervos serao testados ao extremo neste sen- 
sacional adventure grifico. Sangue frio e inteligenda 
sao os requisitos basicos para salvar o Brasil de um 
grave acidente nuclear. 

Requisitos: 

PC 286/386 - VGA 256Kb - A: 1 .2Mb 



□ Angra I W 15,00 




A mais nova sensagao da revista Micro 
Sistemas agora em disquete, especial- 
mente para VGA. Todos os shapes da 
gaieria de arte, os roteiros de animagao, 
os icones, programas shareware, etc, 
numa estrutura grafica interativa (como 
num livro digital). 

Dicas e truques para obter mais cores 



no monitor, macetes de criagao usando o 
GRAPHOS III, e muito mais. 

Disponivel no BBS Secuk) 21 • RIO 
(021)521-6947 • Download livre 

PC 286/386 - VGA 256Kb - A: 1 2Mb - mouse 

□ Bitmap #1 R$6,00 



Envie cheque nominal para PRO KIT Informatica e Editora Ltda 
Caixa Postal 108.046 - Niteroi/RJ - CEP 24121-970 









PROGRAMA 



ZOOM para as figures da segao BITMAP 



Zoom Para BitMap 



Micro: IBM PC XT/AT 
Memdrla: 512 Kbytes 
Video: VGA 
Llnguagem: Pascal 
Requisites: Nenhum 



Gustavo Torquato da Silva 

iH^nD 

Ja faz algum tempo que em MS vem sendo publicada uma 
se$ao chamada BitMap, e nesta segao sao encontrados 
alguns desenhosem modo “ZOOM" que eu, particularmente, 
achei muito interessante. Foi entao que houve o interesse 
em utilizarestes desenhos em meus programas e, parafazer 
isso, criei urn editor em modo "ZOOM” para facilitar a 
construgao dos mesmos. Este editor e o Galeiy. 

0 Galery utiliza o mouse, pois assim e maisfScil trabalhar. 
Usatamb6m as 16 cores do modo VGA do Turbo Pascal, para 

uma melhor apresentagao. E utilizando os desenhos feitos 
neste editor, ja incrementei muitos de meus programas. 

Depois de gravados em disco as duas listagens, digitar 
a partir do prompt do DOS: 

TPC /B GALERY 

' ■>— q,- | GUSTAVO TORQUATO DA SILVA tern 16 anos e e estudante 
§= d° terceiro ano do curso tecnico em processamento de 
s=l dados. Programa em Pascal e Clipper. 



setcolor ( 8 ) ; 

rectangle (pC,pL,pCF,pLF) ; 
rectangle (pC+pH, pL+pH, pCF-pH, pLF-pH) ; 
line {pC, pLF, pC+pH, pLF-pH) ; 
line (pCF-pH, PL+PH, pCF, pL) ; 
setfillstyle (1,0); 
floodfill (pC+pH, pLF-l,getcolor) ; 
setfillstyle (1,7); 
floodfill (pC+l,pL+l,getcolor) ; 
setfillstyle (1,8); 
bar (pC+pH, pL+pH, pCF-pH, pLF-pH); 
settext justify 
(centertext,centertext) ; 
settextstyle (0,0,0); 
setcolor (15); 

outtextxy (l+pC+(pCF-pC) div 
2, l+pL+ (pLF-pL) div 2 , pM) ; 
setcolor (0); 

outtextxy (pC+(pCF-pC) div 2,pL+(pLF- 
PL) div 2 , pM) ; 
end; 

function XRead : string; 
var 

S,W : string; 

T s char; 



uses crt, graph, dos, mouse; 
const 

FUNDO =8; 
var 

L, V, COR, 

X, Y : integer; 



procedure Mudacor ( pNC s word ) ; 
begin 

setcolor (COR) ; 
setfillstyle (1,C0R); 
if erea(30, 290, 90,320) then hidemou; 
bar (30,290,90,320); 
showmou; 
end; 

procedure Button 

(pC,pL,pCF,pLF,pH: integer ;pM: string) ; 
begin 

if FUNDOoO then setcolor (0) else 



begin 

S := "; 

T := upcase(readkey) ; 
while T<>#13 do begin 

if (T in['A' . . 'Z'] ) or (T 
in['l' . . '2 ■ ] ) then begin 
outtext (T); 

W := T; 

S := S+W; 
end; 

if T=#8 then begin 
moveto (getx-textwidth( 'W' ) ,gety) 
bar (getx,gety, getx+10,gety+10) ; 

S ;= copy (S, 1, length(S) -1) ; 
end; 

T := upcase(readkey) ; 
end; 

XRead $ s s ; 
end; 

function Barra > string; 
var 

S : string; 
begin 
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if FUNDO<>4 then setfillstyle (1,4) 


■ 


inc (V, 10); 


else setfillstyle (1,1); 




end; 


bar (5, 10,getmaxx-5, 20) ; 




writeln (ARQ, " ) ; 


setcolor'-’ (15) ; 




inc (L,-10); 


getdir (0,S) ; 




end; 


settext justify (bottamtext,righttext) ; 




close (ARQ) ; 


outtextxy (5,10,8+'.:'); 




Retorno; 


| moveto (5+textwidth(S+' . : ' ) , 10) ; 




showmou; 


i S :» XRead; 




end; 


1 setcolor (COR) ; 

Barra : - S; 




procedure Limpa; 


j end; 




var 


1 procedure Retorno; 




N : integer; 
begin 


j begin 




hidemou; 


1 setfillstyle (l,FUNDO); 




setfillstyle (1,0); 


! bar (5, 10,getmaxx-5,20) ; 




bar (30,350,90,420); 


! end; 




L: =31; 


procedure Abre; 




while L<=411 do begin 
V:=121; 


var 




while V<=601 do begin 


NA : string; 




N := getpixel (V,L); 


ARQ : text; 




if N<>0 then floodfill (V,L, 15) ; 


CH : char ; 




inc (V, 10); 


N,G, 




end; 


H : integer; 




inc (L,10); 


begin 




end; 


hidemou; 




showmou; 


NA : = Barra; 




end; 


assign (ARQ, NA+ ' . GLR' ) ; 
i reset (ARQ); 




procedure Inicializa; 


readln (ARQ) ; 




const 


readln (ARQ) ; 




GDRIVER : integer =9; 


readln (ARQ) ; 




GMODE : integer - 2; 


moveto (121,31); 




GPATH : string = " ; 


while not eof(ARQ) do begin 




begin 


while not eoln(ARQ) do begin 




COR := 1; 


read (ARQ, CH) ; 




initgraph (GDRIVER, GMODE, GPATH) ; 


N := ord(CH) -32 ; 




setfillstyle ( 1 , FUNDO ) ; 


S :■ getx div 10 - 11; 




bar (0, 0,getmaxx,getmaxy) ; 


H : = gety div 10 - 02; 




V:=30; 


putpixel (35+G, 355+H,N) ; 




for L: =0 to 15 do begin 


1 setfillstyle (1,N); 




setfillstyle (1,L); 


| floodfill (getx, gety, 15) ; 




if (L mod 2 ) =0 then 


1 moveto (getx+10,gety) ; 




bar (30, V, 60,V+30) 


end; 




else begin 


readln (ARQ) ; 




bar (60, V, 90, V+30) ; 


moveto (121,gety+10) ; 




inc (V, 30) ; 


end; 




end; 


close (ARQ) ; 




end; 


Retorno; 




if FUNDO=0 then setcolor (15) else 


showmou; 




SETCOLOR (0); 


end; 




rectangle (29, 29, 91, V+l) ; 


procedure Salva; 




rectangle (29, V+19, 91, V+51) ; 
setfillstyle (l,COR); 


var 




bar (30, V+20, 90,V+50) ; 


NA : string; 




setfillstyle (1,0); 


ARQ : text ; 




bar (120,30,610,420); 


CH : char ; 




bar (30,350,90,420); 


N : integer; 




Button (120,430,220,470,4, 'SALVAR'); 


begin 




Button (225,430,325,470,4, 'ABRIR' ) ; 


hidemou; 




Button (330,430,430,470,4, 'SAIR' ) ; 


NA : = Barra; 




Button (435,430,535,470,4, 'LIMPAR') ; 


assign (ARQ,NA+' .GLR' ) ; 




setcolor (15); 


rewrite (ARQ); 




L:=30; 


writeln (ARQ, 'All Rights for'); 




while L<=420 do begin 


writeln (ARQ, ' Gustavo Torquato 




V:=120; 


da Silva'); 




while V<=610 do begin 


writeln (ARQ, " ) ; 




line (V, 30, V, 420) ; 


L:=31; 




inc (V, 10); 


while L<=411 do begin 




end; 


V:=121; 




line (120,L, 610, L) ; 


while V<=601 do begin 




inc (L, 10 ) ; 


N : = getpixel (V, L) ; 




end; 


CH :•> chr (N+32 ) ; 




setfillstyle (1,C0R); 


write (ARQ, CH) ; 




end; 
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procedure Verifica; 
begin 

if not xnouseon then begin 

writeln ('Bate programa requer 
MOUSE ...'); 

halt (0) ; 
end; 
end; 

begin 

Verifica; 

Inicializa; 
showmou ; 
repeat 

if ebutton then begin 

if area (30,30,90,250) then begin 
hidemou ; 

COR := getpixel (moux,mouy) ; 
showmou ; 

Mudacor ( COR) ; 
end; 

if area (120,30,608,420) then begin 
hidemou; 

floodfill (moux, mouy, 15) ; 

X := moux div 10 - 11; 

Y := mouy div 10 - 02; 
putpixel (35+X, 355+Y, COR) ; 
showmou ; 
end; 

if area (124, 434, 2 16, 4 66) then Salva; 
if area (229, 434, 321, 466) then Abre; 
if area(439, 434, 531,466) then Limpa; 
end; 

until area (3 34, 4 34, 4 2 6, 4 66) and ebutton; 
closegraph; 
end. 



unit MOUSE; 



interface 



function MOUSEON : boolean; 
procedure SHOWMOU; 
procedure HIDEMOU; 
function MOUX : integer; 
function MOUY : integer; 
function AREA 

(XI, Y1,X2 , Y2 : integer ) : boolean; 
function BUTTON (N: integer ) : 
function EBUTTON : boolean; 

implementation 

var 

R : registers; 



boolean; 



function MOUSEON : boolean; 
begin 

MOUSEON s = false; 

R . ax : = 0 ; 
intr ( $33 , R) ; 
if R.axoO then begin 
MOUSEON := true; 
exit; 
end; 
end; 

procedure SHOWMOU; 
begin 

R . ax : = 1 ; 
intr ( $33 , R) ; 
end; 

procedure HIDEMOU; 
begin 

R.ax : = 2; 
intr ($33, R); 
end; 

function MOUX : integer; 
begin 

R.ax : = 3 ; 
intr ( $33 , R) ; 

MOUX : ■ R.cx; 
end; 

function MOUY : integer; 
begin 

R.ax s = 3 ; 
intr ( $33 , R) ; 

MOUY := R.dx; 
end; 

function Area (XI, Y1,X2,Y2: integer) : 
boolean; 
begin 

if (MouX<Xl) or (MouX»X2) or 

(MouY<Yl) or (MouY>Y2 ) then begin 
Area ;= false; 
exit ; end 
else 

Area : = true; 

end; 

function BUTTON (N: integer) : boolean; 
begin 

R.ax := 3; 
intr ($33, R); 
if (R.bx and N) = N then 
BUTTON : = true 
else 

BUTTON s= false; 

end; 

function EBUTTON s boolean; 
begin 

EBUTTON : = BUTTON ( 1 ) ; 
end; 




BANK SOFT 

Informatica Ltda. 

Shareware, Jogos e Aplicativos para Micros PC/XT/AT 
j* sen catf logo gratufto pelo telefone : (011) 293-7957 

ou pela Caixa Postal : 14.181 - Cep : 02799-970. 

Nao Perea Tempo H Temos o Melhor Atendimento e Controle de Qualidade - Comprove!! 
APROVEITE NOSSA PROMOgAO REAL 
Discos: 360 Kb = R$ 1,0 - 1.2 Mb = R$ 1,5 - 1.4Mb = R$2,0 

E ainda na compra de cada 15 discos, gratis 1 disco 1.2 Mb Gravado. 
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0 que era bom ficou 
ainda melhor! 



A PRO KIT acaba de langar a segunda versSo do curso que esta 
fazendo o maior sucesso: Assembler para PC, sem sair de casa. 

0 curso de programag§o foi planejado em 10 partes, prevendo uma 
duragSo de aproximadamente um ano. Neste periodo o aluno per- 
manece em contato (por carta) com a equipe tecnica da PRO KIT, com 
o propbsito de elucldar as duvidas. 

Cada parte e remetida ao aluno que, apos o estudo, devera devolver a 
PRO KIT um pequeno teste. Este teste serve para identificar as 
possiveis areas ainda sem entendimento e servem ainda para 
preparar o aluno para os assuntos que serSo tratados mais a frente. 
As ligdes so serSo remetidas apos o recebimento do teste (respon- 
dido, ou nSo). 

Para fazer o curso 6 preciso ter o conhecimento minimo indispenscivel 
na program agao em qualquer outra linguagem: bases numericas, 
memoria, RAM, ROM, bit, byte, compilag&o, edigSo de textos, etc. 0 
curso possui uma linha b&sica, cuja compreensSo nSo exige muita 
experifincia anterior. Dependendo do grau de dificuldade de cada 
aluno, a PRO KIT produz um APENDICE especrfico, ;om elucidagdes 
complementares. 

As duvidas mais simples sSo respondidas juntamente com o envio das 
partes subsequentes. Todo o material necessario para a criagSo de 



programas em Assembler § fomecido pela PRO KIT, inclusive a 
biblioteca de rotinas especiais, usada nos programas produzidos pela 
nossa equipe tdcnica. 

TOPICOS: 



• As principals instrugoes 

• 0 teclado e suas fungoes 

• 0 video em modo de alta resolugSo 

• Menus pulldown e comandos por tabelas 

• Entrada de dados e rotinas de input 

• ManipulagSo de arquivos 

• Uso e controle do mouse 

• AimpressSo 

• Acesso irrestrito aos disquetes e HD 

• Rotinas genericas 

0 objetivo deste curso, unico no mercado brasileiro, nao e apenas en- 
sinar o uso das instrugdes, mas principalmente a mecfinica, os tru- 
ques e macetes de se criar programas em Assembler. 0 curso e 
compativel com micros padrao IBM PC XT / 286 / 386 / 486. 

A PRO KIT coloca ainda a disposigSo dos programadores, que ja pos- 
suem conhecimentos de Assembler, tr&s discos contendo suas prin- 
cipals bibliotecas de rotinas. 



Autor e orientador: RENATO DEGIOVANI 



□ Assembler em 10 Iig6es (CGA) R$ 60,00 Nome: 

□ Assembler em iCHgOes (VGA) R$ 100,00 Enderego: — 

□ Biblioteca de rotinas para CGA R$ 30,00 CEP: 

□ Biblioteca de rotinas para VGA. R$ 30,00 Data: 

□ Biblioteca Super VGA 256 cores R$ 30,00 Equipamento:. 



Iniciativa: 



PRO K 



. Cidade:. 



. Cheque: . 



Envie cheque nominal para PRO KIT Informatics e Editora Ltda 
Caixa Postal 108.046 - NJterdi / RJ - CEP 24121-970 



ROTINAS 



Nao perca de vista seus arquivos 



Biblioteca - parte 1 



Micro: IBM XT/AT 
Memorla: 512 Kbytes 
Video: CGA/VGA 
Unguagem: C 
Requisites: Nenhum 



Henrique Moraes Machado 

Embora a linguagem C possua as fungoes findfirst e 
findnext para procurar arquivos , estas fungoes sao limitadas. 
As vezes, voce deseja executar uma determmada agao a um 
conjunto de arquivos em um diretorio dado, possivelmente 
incluindo arquivos em subdiretorios. As fungoes Searcher e 
AllSearcher tomam mais facil essa tarefa. 

A fungao Searcher recebe como parametros uma mascara 
(como *.txt por exemplo ou c;\dos\*.com), um filtro de 
atributos e um nome de fungao. 0 prototipo da fungao 
passada como parametro deve ser: 
int SearchProc( struct ffblk *, char * ) 

Esta fungao executa a agao desejada em cada arquivo 
encontrado. 

A fungao AllSearcherfunciona da mesma maneira, entretanto 
ela procura arquivos tambem em subdiretorios, porexemplo: 
Searched "*.com”, FA_ARCHIVE, MyFunc ); 

Procura todos os arquivos com extensao COM apenas no 
diretorio atual e executa a fungao MyFunc para cada arquivo 
encontrado. 

AIISearcher( "*.com, FA_ARCHIVE, MyFunc ); 

Procura todos os arquivos com extensao COM no diretorio 
atual e subdiretorios e executa a fungao MyFunc para cada 
arquivo encontrado. 

A fungao MyFunc poderia ser algo simples como: 
int MyFunc( struct ffblk *B, char *C ) { 
printf( "encontrado arquivo: %s no diretorio %s”, B->f name. 
C); 

retum( 0 ); 

} 

ou algo muito mais complexo. 

0 programa exemplo FINDAND.C utiliza a fungao 
AllSearcher para procurar arquivos e aplicar um comando 
definido pelo usuario. 




HENRIQUE MORAES MACHADO programa em Pascal, C, 
Cobol e Clipper e desenvolveu diversos sistemas para 
aplicapao comercial. 



FINDAND.C 



/* 

HeM 1994 
FINDAND.C 

Procura arquivos e aplica um comando 
definido pelo usuario a cada um 
todas as mensagens estao em ingles 
por que eu gosto mais assim. 

*/ 

#include <stdio.h> 

#include <dos.h> 

# include <dir.h> 

# include <stdlib.h> 

# include <string.h> 

# include <errno.h> 

# include <process.h> 

/* Funcoes de busca de arquivos 
Searcher e AllSearcher */ 

#include "FSRCH.C" 



unsigned long FilesFound = 0 



char FileMask [ MAXDRIVE + MAX PATH - 1 
] ; 

char Command [ 256 ]; 



char *strdel( char *Str, char *Pos, 
size_t Num ) { 

size_t Len = strlen ( Str ) ; 

if( ( Pos >= &Str [ Len ] ) II ( Num 
== 0 ) ) { 

return ( str ) ; 

} 
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Num » ( Num <■ strlen( Pos ) ? Num : 
strlen ( Pos ) ) ; 
i£( Num ) { 

memmove( Pos, &Pos [ Num ], strlen ( 
&Pos [ Num ] ) + 1 ) ; 

} 

return ( Str ) ; 

} 



char *strins( char *Str, char *Pos, 
char *Xnsrt ) { 

size_t Len = strlen ( Insrt ); 
char *Tmp = &Pos [ Len ] ; 

memmove ( Tmp, Pos, strlen ( Pos ) + 1 

) ; 

memmove ( Pos , Insrt , Len ) ; 
return ( Str ) ; 

} 



char * str subs t ( char *Str, char *Find, 
char *Rplc ) { 

char *StrWork = Str; 

slze_t LenRplc = strlen ( Rplc ) ; 

while ( ( StrWork = strstr( StrWork, 
Find ) ) != NULL ) { 

strdel( Str, StrWork, strlen ( Find 

) ) ; 

strins( Str, StrWork, Rplc ); 
StrWork += LenRplc; 

> 

return ( Str ) ; 

} 



/* 

Esta e a funcao passada para 
AlSearcher 
*/ 

int SrcProc( struct £fblk *FB, char 
•Path ) { 

char Coml [ MAI PATH ] ; 
char Com2 [ 256 ] ; 
char TheFile [ MAXPATH ]; 
char D[ MAXDRIVE ]; 
char P [ MAXDIR ] ; 
chcu: Ft MAXFILE ]; 

Char E [ MAX EXT ] ; 

char FE [ MAXFILE + MAXEXT - 1 ]; 

char DP [ MAXPATH ] ; 

int Flags; 

/• Oops! it's a volume label */ 
if( FB->f f_attrib & FA_LABEL ) 
return ( 0 ) ; 

FilesFound ++; 

strupr ( Path ) ; 

strcpy ( TheFile, Path ); 



strcat ( TheFile, FB->f£_name ); 

strcpy ( Coml , Command ) ; 

fnsplit( TheFile, D, P, F, E ); 

strcpy ( FE, F ); 
strcat ( FE, E ); 

strcpy ( DP , D ) ; 
strcat ( DP , P ) ; 

strcpy ( Cam2, strsubst ( Coml, "$1", 
TheFile ) ) ; 

/ 

* drive: \diret or io\arquivo. ext ensao */ 
strsubst ( Cam2, "$2", FE ); 

/• arquivo.extensao 
*/ 

strsubst ( Com2, "$3", F ); 

/* arquivo 
*/ 

strsubst ( Com2, "$4", D ); 

/• drive: 

*/ 

strsubst ( Com2, "$5", DP ); 

/• drive: \diret or io\ 

*/ 

strsubst ( Cam2, "$6", P ); 

/* \diretorio\ 

*/ 

strsubst ( Com2, "$7", E ); 

/• .extensao 
*/ 

if ( FB->f f_attrib & FA_DIREC ) 
print £ ( "<DIRECTORY> " ); 

print£( " %b" , TheFile ); 

i£( strlen ( Conmand ) > 0 ) { 
print£( " -> %s\n", Com2 ); 
if ( system ( Com2 ) ) 

print £( " ! ! can't execute com- 
mand %s\n", Com2 ); 

} 

else 

putchar ( ' \n ' ) ; 
return ( 0 ) ; 

} 



int main( int argc, char *argv [ ] ) { 
char D[ MAXDRIVE ]; 
char P [ MAXDIR ] ; 
char F [ MAXFILE ] ; 
char E [ MAXEXT ] ; 
int f flags = 0; 

print f ( "FindAnd ... to search for 
files and apply a command\n" ) ; 

printf( "Copyright (c) 1994, HeM 
Softmaker. All rights reserved. \n" ); 

if ( argc < 2 I I argv[ 1 ] [ 0 ] == '/ 
') { 

printf( "\nsyntax: FINDAND 



%cCOMMAND $n%c FileMask\n", , ' " ' 



print £ ( " or: FINLAND 
FileHask\n\n" ) ; 

print f ( " FileMask * files you 
wish to search (wildcards allowed) \n" 

) ; 

print f ( " COMMAND = command to 
apply to each £ile\n" ) ; 

printf( " $n = replaced 

with name of file by the program\n" ) ; 

printf ( " $1 drive: 

+ WpathW + name + . extension\n" ); 

printf( " $2 name + 

.extension\n" ); 

printf( " $3 name\n" 

) ; 

printf ( " $4 

drive : \n" ) ; 

printf ( " $5 drive + 

\\path\\\n" ); 

printf ( " $6 

\\path\\\n" ); 

printf ( " $7 

.extension\n\n" ); 

printf ( " example: FINLAND %ccopy 
$1 a:$3.bak%c *.doc\n", "" ); 

printf ( " copies files 

matching *.doc to drive A: changing 
extensions to .BAK\n\n" ); 
return ( 1 ) ; 

} 

else { 

if ( argc == 3 ) { 

strcpy( Command, argv[ 1 ] ); 
strcpy( FileMask, argv[ 2 ] ); 

} 

else if( argc » 2 ) { 

strcpy( FileMask, argv[ 1 ] ); 
strcpy ( Command, NULL ); 

} 



f flags = fnsplit( FileMask, D, P, 

F, E ); 

if ( ( f flags & DRIVE ) == 0 ) { 
strcpy ( D, "X : " ) ; 

D[ 0 ] = 'A' + getdiskO; 

} 

if ( ( f flags & DIRECTORY ) -■ 0 ) { 
strcpy ( P, "\\" ) ; 
getcurdir( D[ 0 I - 'A' + 1, P + 

1 ); 

} 

if ( ( f flags & FILENAME ) == 0 ) { 
strcpy ( F, "????????" ); 

) 

if ( ( f flags & EXTENSION ) == 0 ) ( 
strcpy ( E, ".???" ); 

> 

fnmerge( FileMask, D, P, F, E ); 

printf ( "\nsearching for files 
matching %s\n", FileMask ); 

if( AllSearcher( FileMask, FA_ALL, 
SrcProc ) ) 

printf ( "\n%s\n", strerror( errao 

) ); 

else 

printf ( "%6d files found\n", 
FilesFound ) ; 

printf ( "\nHeM 94 \n" ); 
return ( 0 ) ; 



/* That's all folks */ 



0 RIO GANHOU UMA NOVA E DIFERENTE LOJA 

NUM MESMO LOCAL VOCE ENCONTRA 

t 

EDICOES EDIOURO: LIVROS DOS AMIS VARIADOS ASSUNTOS 
ELETRONICA: LIVROS, ANTENAS PARA RADIOAAMDORES E PX, 

antenasparab6licas, etc. 

INFORMATICA: SUPRIMENTOS, EQUIPAMENTOS, COMPLETA 
LINHA DE LIVROS PARA INICIANTES E PROFISSIONAIS COM 20% DE 
DESCONTO. 

MANUAIS EM PORTUGUlS: VIDEO, CAMERAS, AGENDAS, 
COMPUTADORES, FAX, TELEFONE SEM FIO E ETC. TEMOS 
DIVERSOS PRONTOS E TRADUZIMOS ARTIGOS DE REVISTAS E 
LIVROS. 



VENHACONHECERA 



romo 



tronica 



Av. Marechal Floriano,167 A - CEP:20080-005 
Rio de Janeiro - RJ 

TEL:(021 1263-9590 FAX:(021 1263-8840 



OS ULTIMOS LANQAMENTOS 

PROGRAMAS 
PARA IBM PC 

A Partir de 

R$ 1,00 

Solicite catcilogo completo gra- 
tuitamente e receba um desconto 
especial de 10% no seu primeiro 
pedido. 

Conhega tamb6m as mais 
incrfveis bibliotecas de novas 
fungdes para seu Clipper S’87, 
5.01 ou 5.2 

NTA 

Caixa Postal 6015 
FORTALEZA 
CEP 60451-970 

Participedo Clu be do Windows 



CONTABILIDADE 

Super ContabiMdade com Fontes 
Atualizado p/lei 8383. FAcil de ins- 
talar e operar. Help. Langamentos 
retroativos. Emissao de diSrio, 
razao, balancetes e balan$o. Lan- 
?:amentos com ou sem contraparti- 
da. Histdrico padrSo alterAvel no 
langamento. Histbrico total com ate 
240 caracteres. Acesso em janelas 
a piano de contas, historico, calcu- 
ladora, agendas, etc. Senha. Mul- 
tiempresa. List to Print/Edit. Aces- 
so ao DOS e dezenas de outros re- 
cursos. 5 disquetes de 5.1/4”: R$ 
30,00. OUTROS APLICATIVOS: 
Gestor Comercial (4 disquetes 
5.1/4”, super estoque c/emissSo de 
cupom), R$ 30,00; Folha Pgto. Se- 
manal, R$ 20.00; Bancbrlo (atb 6 
contas), R$ 20,00; Mala Direfa 
(cliente, f ornecedor, etc). R$ 25,00 



Softs executaveis prontos para 
o uso em PC XT/AT 286/386/ 
486/OS/PENTIUM c/Fontes em 
CLIPPER. INFODATA InformS- 
tica Ltda., Caixa Posta 1 ^224, 
CEP 01059 970, Sao Paulo, SP 
Tels: 

(Oil) 259-8169 e 259 -6399 | 









HeM 1994 
FSRCH.C 

Conversao para linguagem C de urn 
programa em Pascal de Nell Rubenking 



define o prototipo da funcao a ser 
passada cctno parametro para searcher 
e allsearcher 



#def ine SRCHPROC lnt ( *SearchProc ) ( 
struct ffblk *, char * ) 



variaveis globais utlllzadas por 
AllSearcher 



char GlobalSearchDirMask [ MAXFILE + 

MAXEXT - 1 ]? 

char GlobalSearchDlrAttr; 

lnt ( *OlobalSearchDirProc ) { struct 

ffblk *, char * )? 



/ 

A funcao Searcher procure arquivos 
no dlretorio atual ou especlflcado. 

E ela quern faz todo o trabalho, e 
qualquer otimizacao fare mais efelto 

se for feita aqui. 

Mask -> mascara de busca de 
arquivos ( *.exe por exemplo ) 

Attr -> filtro de atrlbutos de 
arquivo 

SRCPROC -> funcao que processa cada 
arquivo encontrado 

deve ter o prototipo como 
na definicao aclma 



lnt Searcher ( const char *Mask, lnt 
Attr, SRCHPROC ) { 
struct ffblk SR; 
char Drive [ MAXDRIVE ] ; 
char Ds [ MAXDIR ] ; 
char Ns [ MAXFILE ]; 
char Es [ MAXEXT ]; 

char DrDir [ MAXDRIVE + MAXDIR - 1 ]; 
lnt ERR ■> 0; 

ERR *» f indf irst ( Mask, &SR, Attr ) ; 
while ( ERR 1- -1 ) { 

fnsplit( Mask, Drive, Ds, Ns, Es 

) ; 

strcpy( DrDir, Drive ); 
street ( DrDir, Ds ) ; 

( * SearchProc ) ( &SR, DrDir ) ; 

ERR = f indnext ( &SR ) ; 



ERR = errno; 

if ( ERR ■■ 18 II ERR =« 2 ) 
return ( 0 ) ; 
else 

return ( ERR ) ; 



SearchDir procure diretorios 
recurs ivamente . 

Utilizada por AllSearcher 



int SearchDir ( struct ffblk *S, char P[ 
MAXPATH ] ) { 

char TMPC MAXPATH ]; 

if ( ( S->f f_attrib & FA_DIREC ) && ( 
S->ff_name[ 0 ] !«'.') ) { 
street ( P, S->ff_name ); 
strepy ( TMP, P ); 
street ( TMP, "\\" ) ; 
street ( TMP, OlobalSearchDlrMask ); 
Searcher ( TMP, GlobalSearchDlrAttr, 
GlobalSearchDirProc ) ; 
strepy ( TMP, P ); 
street ( TMP, "\\*.*" ); 

/* aqui esta a recursao */ 

Searcher { TMP, FA_DIREC I FA_ARCH, 
SearchDir ) ; 

} 

return ( 0 ) ; 



Esta funcao tambem procure em 
subdiretorios . Os parametros sao 
identicos aos de Searcher 

•/ 

int AllSearcher ( const char *Mask, int 
Attr, SRCHPROC ) { 

char TMP1 [ MAXPATH ]; 
char Drive [MAXDRIVE] ; 
char Ds [ MAXDIR ]; 
char Ns [ MAXFILE ]; 
char Es [ MAXEXT ] ; 
int Er; 

fnsplit( Mask, Drive, Ds, Ns, Es ); 
strepy ( GlobalSearchDirMask, Ns ) ; 
streat ( GlobalSearchDirMask, Es ) ; 
GlobalSearchDlrAttr = Attr; 
GlobalSearchDirProc = SearchProc; 
if( ( Er = Searcher ( Mask, Attr, 
SearchProc ) ) == 0 ) { 

strepy ( TMP1, Drive ); 
streat ( TMPl, Ds ); 
streat ( TMPl, ); 

return ( Searcher ( TMPl, FA_DIREC , 
SearchDir ) ) ; 

} 

else 

return ( Er ) ; 



/* That's all folks */ 
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Divirta-se com este super jogo VGA 




Blocos V1.0'- Parte 1 



Eduardo Rocha Sbrissia 



0 que e ? Todos lembram do velho “Soko-ban”, aquele 
joguinho de empurrar pedras nos buracos ? Pois e, o 
BLOCOS § um clone modificado deste famoso jogo, mas 
com graficos VGA 640x480-16 cores no lugar de CGA 
320x2004 cores. Suigiu tambem um personagem novo, o 
"Chato” que, como o nome \k diz, so atrapalha e quer ir atras 
do nosso homenzinho, sem se importar com o que ve na 
frente, empurrando pedras ate para os buracos (pode ser 
Otil, nao ?). 0 Blocos tamb§m permite que o usudrio crie 
suas proprias fases, adicionando obstaculos e dificuldades 
a gosto. JOGO EC0L0GIC0. (REPARE AS CORES) 

Em que micro fbi feito ? 0 que requer ? Posso rodar num 
XT-CGA ? 0 Blocos foi feito num 386 DX 40 com 4 MB de 
memoria, 240 MB de HD, visor SVGA 1024x768-256 cores. 
Mas, infelizmente, nao precisade "tudo isso” para tuncionar. 
Deve tuncionar tranquilo num XT, ficando extremamente 
lenta a parte dedesenho das fases (no infcio). Aconselho um 
286. Quanto ao tataravo CGA ou ao vovo EGA, estes nao 
suportarao os graficos. Resumindo: 286 com VGA roda legal 
o Blocos 1.0. Nao mais de 50K serao utilizados na versao 
interpretada, com varias fases. 

Em que linguagem foi feito o Blocos ? Foi feito no QBASIC 
v.1.1 que acompanha o DOS 4, 5 ou 6, para que todos 
usuarios (com VGA) possam entende-lo mais facilmente e 
tambem porque QUALQUER computador que se preze, tern 
no mfnimo o DOS 4, que vem com o QBASIC. 

Qual e o objetivo de cada fase ? Colocar pedras nos 
buracos, movimentando o homenzinho o mfnimo possfvel. 

Como movimentar o homenzinho ? Quais sao as teclas 
do jogo ? 

- Para movimentar : I - sobe, K - desce, J - a esquerda, L a direita; 

- Para gravar o jogo : [CTRL] +[S] 

- Para ler o jogo gravado : [CTRL] +[L] 

- Para recomegar fase : [R] 

- Para sair do jogo : [S] 

Como criar fases ? Entre num editor qualquer e digite a 
fase, gravando em modo ASCII e seguindo as orientagdes 
seguintes : 



Micro: IBM 286/386 
Memoria: 640 Kbytes 
Video: VGA 256 Kbytes 
Linguagem: QBasic 
Requisites: Nenhum 



* Cada fase & composta de um arquivo TEXTO de 23 linhas, 
sendo que as 3 primeiras correspondem is mensagens da 
fase e as 20 seguintes, £ fase propriamente dita. 

* A fase § um tabuleiio de 20 linhas por 40 colunas. Na 
criagao, obedega a este limite maxi mo. 

* Crie a fase obedecendo a seguinte legenda : 

[-] - (hrfen) parede normal 

[/] - (barra inversa) parede nao ecoldgica, tira 10 pontos 
[0] - (letra 0 maiuscula) buraco 
[o] - (letra o minuscula) pedra 

[X] - (letra X maiuscula) homenzinho (0BRIGAT6RI0) 

[Y] - (letra Y maiOscula) chato (NAO t OBRIGATORIO) 

* ATENQAO : a fase deve necessariamente estar cercada por 
paredes. 

* 0 NOME DO ARQUIVO QUE CONTEM A FASE DEVE SEGUIR 
0 PADRAO : nnnnnnnn.DAD, onde nnnnnnnn € o numero da 
fase. 0 programs le as fases seguindo a ordem desta 
numeragao. 

Exemplos : 00000001.DAD, 00001212.DAD. Neste caso, 
o ptograma lera a fase 00000001. DAD e acabara, pois nao 
existe a fase 00000002.DAD. 

Exemplo de fase (os escritos apos ***, assim como 
estes, nao devem ser digitados, sao as explicagoes !!!!!!!!). 
Grave como "00000001. DAD” (veja no quadro a seguir). 

OBS : A descrigao e o nome da fase nao devem ter mais 
de 37 caracteres cada. t VITAL que o nOmero de PEDRAS 
seja igual ao numero de BURACOS. A mensagem do final da 
fase pode ter ate 80 caracteres. 

A digitagao : Entre no QBASIC teclando QBASIC, digite a 
listagem e grave. Os escritos apos [1 sao comentarios, 
podem ser retirados durante a digitagao. 0 programs esta 
totalmente explicado. Digite os dois programas : 




figure 1 



teclando QBASIC /RUN BLOCOS a partir do prompt do DOS 
(C:\>) ou carregando o QBASIC e teclando lATL]+[F]+[0) 
(ingles), ou [ALT]+[A)+[A] (portugues) para ler BLOCOS.TXT. 

Posso compila-lo no QUICK BASIC 4.0 ou superior ? Sim, 
sem problems algum. A versao compilada encontra-se nas 
melhores BBS’s de Curitiba-PR, assim como algumas fases 
feitas por mim. 

Enderego para contato : Caixa Postal 78 CEP 83301-610 
PIRAQUARA - PARANA Fone : (041) 773 - 1874 Modem : 
(041) 773 - 1874 (8Nl/2400/Echo:N/MNP:V42b) POR 
FAVOR, NAO LIGUE + COBRAR III! e NO CASO DO MODEM, 
LIGUE ANTES PARA AVISAR E USE : 

Name: NOVO 

Password: NEW 

*** Envie criticas e sugestdes por carta ou modem. 

*** Desenhos de fases tambem sao aceitos. Pretendo 
fazer uma colegao com varias fases (cerca de 500) e enviar 
a BBS’s. Coloque seu nome na mensagem de finalizagao da 
fase. 



BLOCOS. BAS -> o jogo em si, 

CRIAEA.BAS -> programs que cria o arquivo de ESCORES 
ALTOS em branco. 



Execute primeiro o CRIAEA.BAS, para que o arquivo seja 
criado. Apos isto, pode executar normalmente o Blocos 



' Declarag I o das £ung_ea do jogo 
DECLARE SUB FazDesen () 

DECLARE SUB PoeFig (1!, Cl, oq$) 

' Declarag !o das matrizes normals ou 
compart ilhada s (SHARED) 

DIM SHARED paredeMl TO 200) ' 

matrlzas da dasanho 

DIM SHARED vazio%(l TO 200) ' 

tt 

DIM SHARED pedra%(l TO 200) ' 

St 

DIM SHARED paredeestr%( 1 TO 200) ' 

tt 

DIM SHARED buraco%(l TO 200) ' 

it 

DIM SHARED bchaioVl TO 200) ' 

at 

DIM SHARED boy*(l TO 200) ' 

tt 

DIM SHARED chato%(l TO 200) ' 

tt 

DIM bs$ (11) , asc(ll) 

Usadas no escora alto 

DIM TAB$ (21, 41), bak$(20) ' 

Daflna tabulalro 

SCREEN 12 ' Inicializa 

modo gr&fico 640x480 (VGA) 

FazDasan ' Desanba as 

£iguras a grava na memdria 

NUMERO = 0 ' n* atual da 

fase 

ESCORB = 0 ' ascora 

inicial 



comeco t 
cada fase 
RBCOMBCEI$ = "N" 



' Comago de 
' N|o esti 



EDUARDO ROCHA SBRISSIA tern 16anos e cursa a 3* serie 
S=ll§ do 2 s grau em CuritibaE’R. Programa em BASIC, DBASE IV, 
=iEi CUPPER, TURBO PASCAL e VISUAL BASIC. Desenvolve 
sistemas integrados e aplicapdes em geral. £ autor de programas 
profissionais dlstribuldos em regime de shareware. 



recomegando o jogo 
chato$ = "N" 

(at A o presents mamento) 

NUMERO = NUMERO + 1 
SEGANT a TIMER 
do chato 

' Define name do arquivo da fase 
arquivo$ = RTRIM$ (LTRIM$ (STR$ (NUMERO) ) ) 
arquivo$ = STRING$(8 - LEN(arquivo$) , 
"0") + arguivoS + ".DAD" 



N|o hi chatos 

Prdxima fase 
_ltima movida 



' Mensagem final 

mf inal$ = " 1 III I ! 1 1 III 1! Ill ParabAns 111 | 

VocS zarou o Blocos V . 1 . 0 . . . 

II 111 III ! I 111 111 " I 

ON ERROR GOTO fim ' Se j 

houver erro na abertura do arquivo, vai j 
p/o final. j 

OPEN arquivo$ FOR INPUT AS #1 ' 

Tenta abrir arquivo da fasa. 

IF RECOMECE I $ = "S" GOTO comeco ' Se j 
ast£ racamegando o jogo, vai para o j 

comego 

ON ERROR GOTO 0 ' 

Ignora tratamento de arros 
2 

qt s 0 'Quantidade de pedras nos 
buracos 

QTB = 0 'Quantidade da buracos 



' Le dados do arquivo da fases j 

LINE INPUT #1, NOMEFASB$ ' name da ! 

fase . , 

LINE INPUT #1, DESCRFASE$ ' descrigloj 

da fase j 

LINE INPUT #1, FINALFASE$ ' mensagem j 

do final da fase 



FOR f = 1 TO 20 j 

INPUT #1, bak$ (f ) ' linbas do j 

tabulairo 
NEXT 

CLOSE #1 'Facha 



MICRO SISTEMAS 



i 

J 



arquivo 

' Paaaa linhaa intairaa para divia i o da 
colunaa a linhaa 
FOR £ s 1 TO 20 
FOR g a 1 TO 40 

TAB$(f, g) = MID$ (bak$ (f ) , g, 1) 

IF TAB$ ( f , g) = "O" THEN QTB = QTB 
+ 1 ' Conta o mlmaro da buraeoa 

' linha a coluna inicial do 
homanzinho 

IF TAB$ (f , g) = "X" THRU 

LBOY = £ : CBOY = gi TAB$ ( £ , g) = " 

END IF 

' linha a coluna inicial do chato 
IF TAB$ (£, g) m "Y" THSN 
CEATL a £ i CEATC b gi chato$ - "S" 
END IF 



CALL PoaFig(£, g, 7AB$ (£, g) ) 

' Dasenha 
NEXT 
NEXT 

' Henaagans do jogo 

LOCATE 26, li PRINT "BLOCOS V. 1.0 - (C) 
1994 BY Eduardo Rocha Sbriaaia" 

LOCATE 27, li PRINT NOMBFASE$ ; " - ", 
DESCRFASE$ 

LOCATE 28, 1* PRINT "Buraeoa t 
Padras noa buraeoa i Eacora i " 

' Imprima aatatiticas 
OOSUB BSTAT 



INICIO t 

inicio (da rotina do jogo) 
mov$ b INKEY $ 

Eapara uma tacla 
mov$ b UCASB$ (mov$ ) 
trana forma para maitiscula 
CALL PoeFig ( LBOY , CBOY, "X") 



Daaanha o homanzinho 

' Sa houvar chato, a tanha paaaado 1/4 
da aagundo, chama aua rotina da "vida" 

IF c hato$ B "S" AND TIMER - SBOANT > .25 
THEN OOSUB chato 

' Sa a quantidade da pedraa noa buraeoa 
for igual a quant, da buraeoa, 
complatou-aa a faaa 
IF QT b QTB GOTO complatou 



SELECT CASE mov$ 

' CTRL+S - Salva o jogo 
CASE CHR$ ( 19 ) 

LOCATE 28, 1< PRINT STRINO$(80, " ") 
LOCATE 28, It PRINT "Salvando jogo . 
Aguarda III" 

FOR f b 1 TO 20 
bak$ (£) b "" 

FOR g b 1 TO 40 

bak$ (£) b bak$ (£) + TAB$ (£, g) 



OPEN "JOOO_SAL.VO" FOR OUTPUT AS #1 
'Abra arquivo com o jogo aalvo 
PRINT #1, NOMEFASE$ 

' Grava noma da £aaa 
PRINT #1, DESCRFASE$ 

' Grava dascriglo da faaa 
PRINT #1, FINALFASE$ 

' Grava manaagam do final da faaa 
FOR £ = 1 TO 20 
PRINT #1, bak$ ( f ) 

'Grava tabulairo 
NEXT 

PRINT #1, ESCORE 
'Grava aacora 
PRINT #1, NUMERO 
'Grava faaa 
PRINT #1, QT 
'Grava qt. da buraeoa 
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PC MAGAZINE, DESVENDANDO O 
DOS 6 - 676 PAGS 

Este livro baseia-se no mesmo tipo de 
treinamento utilizado com sucesso 
nos estabelecimentos de ensino da 
PC Learning Labs, espalhados nos 
Estados Unidos. Atravfes de disquete 
comexemplos incluldo no livro, o leitor 
aprendera com o m§todo mais facil, 
mais rSpido e mais eficaz. 

C6d: 2- Prepo: R$ 30,41 
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MICROSOFT ACCESS - 576 PAGS 
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IBPI, WINDOWS 3.1 
METODO RAPIDO - 108 pAgs 

£ um guia r&pido e eficiente, ideal para 
iniciantes neste novo ambiente opera- 
cional, e indispensavel para quern ja 
conhece e deseja tirar dOvidas de for- 
ma clara, objetiva e rapida. 

C6d: 6 - Prego: R$ 8,31 



IBPI, EXCEL 4 

mEtodo rApido - 120 pAgs 

Esta obra mostra ao leitor os recursos 
do programs, estudando casos reais e 
que poderao ser usados no dia-a<iia 
de sua atividade e como base para 0 
desenvolvimento de trabalhos mais 
complexos. 

C6d: 7- Prepo: R$ 8,93 



IBPI, WORDLE0R WINDOWS 2.0 
mEtodo rApido - 200 pAgs 

Amplamente ilustrado, este livro forne- 
ce dicas basicas e explicapoes prati- 
cas e objetivas para os usuarios deste 
excepcional editor de textos 
C6d: 8- Prepo: R$ 12,16 
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| PRINT #1, QTB 

I ' Grava qt . da pa dr as nos buracos 
PRINT #1, LBOY 
' Grava posigio do homanzinho 
PRINT #1, CBOY 
' Grava posig | o do homanzinho 
PRINT #1, CHATL 

'Grava posit?! o do chato(sa houvar) 
PRINT #1, CHATC 

'Grava posigio do chato(se houvar) 
PRINT #1, chato$ 

' grava sa hi ohato 
PRINT #1, CCA 

'Grava posig jo do chato(aa houvar) 
PRINT #1, CLA 

'grava posig jo do chato ( se houvar) 



INPUT #1, CCA 

'Li posig | o do ohato ( sa houvar) 
j INPUT #1, CLA 

| 'Li posigio do ohato (sa houvar) 
j CLOSE #1 

'Pacha arquivo 

f = 1 

0=1 

■ POR f = I TO 20 
POR g a 1 TO 40 

TAB$(f, g) = MID$(bak$(f), g, 1) 
CALL PoaPig(f, g, TAB$ ( £ , g) ) 

' Oasanha 

NEXT 

NEXT 



CLOSE *1 
'Pacha arquivo 

LOCATE 28, 1j PRINT "Buracos s 
Pedras nos buracos : Escora t " 

' Imprima astatiticas 
GO SUB ESTAT 
mov$ = "" 

GOTO INICIO 

' CTRL+L - Li o jogo salvo 
CASB CHR$ ( 12 ) 

; ON ERROR GOTO Blocosin 'Sa 

n!o existir, volta p/ o inicio ! 

OPEN "JOGO_SAL.VO" POR INPUT AS #1 
'Abre arquivo com o jogo salvo 
: ON ERROR GOTO 0 

LOCATE 28, Is PRINT STRING$(80, " ") 

LOCATE 28, Is PRINT "Lando jogo ... j 

Aguarde III" ! 

BSCORB = 0 

I NUMBRO = 0 ! 

QT a 0 ! 

\ QTB a o I 

, LBOY a 0 ! 

CBOY a 0 j 

j CHATC a 0 
! CHATL a 0 
j chat$ = " " 

! CCA a 0 j 

’ CLA a 0 I 

j LINE INPUT #1, NOMBPASB$ ! 

j ' Li ncma da fasa i 

! LINE INPUT #1, DBSCRPASB$ i 

[ ' Li descrig | o da fasa 

| LI NE INPUT #1, F INALP ASE$ ! 

' Li mansagam do final da fasa I 

POR f a l TO 20 

bak$(f) a "" j 

INPUT #1, bak$ ( f ) 

'Li tabulairo 

NEXT J 

! INPUT #1, ESCORB 

| 'Li escora j 

i INPUT #1, NUMERO 
I 'Li fasa 

! input #1, QT ! 

! ' Li qt . da buracos 
; INPUT #1, QTB 

' . da pedras nos buracos i 

j INPUT #1, LBOY j 

; ' Li posig i o do homanzinho I 

« INPUT #1, CBOY i 

'Li posigio do homanzinho | 

INPUT #1, CHATL 

'Li posigio do chato(se houvar) 

INPUT #1, CHATC j 

'Li posigjo do chato(se houvar) i 

INPUT #1, chato$ 

' Li sa hi chato i 



LOCATE 27, Is PRINT STRING$(80, * ") 
LOCATE 27, Is PRINT NOHEPASES; " - 
; DESCRPASE$ 

j PRINT "Buracos s Padras nos 

• buracos s Escora s" 

’ ' Unprime astatiticas 
i GO SUB ESTAT 
j SEGANT a TIMER 
; mov$ = "" 
i GOTO INICIO 




; ' Recomegar a fasa ? 
| CASB "R" 



l 

l 

S 



LOCATE 28, Is PRINT STRING$(80, " ") 
LOCATE 28, Is INPUT "RECOMECA a fasa (S/ 
N) "; re$ 
ra$ = UCASE$(re$) 

LOCATE 28, Is PRINT "Buracos s 
Padras nos buracos s Escora s" 

IP re$ a "S" THEN 

BSCORE a BSCORE - (300 * QT) ' 

Penalizagio por recomegar 4 300 vezas o 

n a da padras nos buracos 

NUMERO a NUMERO - 1 ' Volta 

uma fasa (O "ccmeco" aumenta 1, portanto 

fica na masma) 

PLAY 



"MBt255°2 1 2cp6414 c p64 11 2cp6412cp6414d#p6 

418dp6414dp6418cp6414cp64oll8bp64o212c" 

GOTO ccmeco 
END IP 



s ' Imprima astatiticas 
I GO SUB ESTAT 



GOTO INICIO 



' Sair do jogo ? 
j CASE "S" 

LOCATE 28, Is PRINT STRING$(80, " ") 
j 28, 11 INPUT " SAI d ® joffo (S/N) 

re$ a UCASE$ (re$) 

LOCATE 28, Is PRINT "Buracos s 
Padras nos buracos s Escora s ” 



! 



i 

j 

! 

i 



i 



i 

i 

t 



' Imprlme astatiticas 
GO SUB ESTAT 

IF re$ s "S" THEN 
' Mensagem final 

mfinal$ a "??????????? j* V ai ambora ??? 
Jogua novamente o Blocos v.1.0 Ml 
???????????" 



GOTO fim 
END IP 
GOTO INICIO 



Voce confirm enrokuto? 



MONTE SEU PR6PRIO AT 286, 386 OU 486. 
APRENDA VARIAS DICAS DE COMO TIRAR UM MELHOR 
PROVEITO DOS RECURSOS DO SEU MICROCOMPUTADOR. 
Com os livros do Eng. LAERCIO VASCONCELOS 




COMO MONTAR, CONFIGURAR E EXPANDIR SEU AT 386/486 



Agora a uenda tamb&n nas principals liurarias de informdtica de Sdo Paulo.-BOOKWARE, UTEC E CULTURA. 
Estamos cadastrando liurarias e reuendas em todo o Brasil. 

Abotda: Montagem de XT e AT 286, 386SX 386DX e 486. Fontes, gabinetes, NO-BREAKS, establlizadores, aterramento, DRIVES, piacas de video e monRores 
CGA, HERCULES, EGA, VGA, e SUPER VGA. Piacas MULTI-I/O, IOSA, UDC e IDEPLUS. Piacas de CPU, expans*) de membria, instatag*) de membrta 
CACHE, uso de membrta ESTENDIDA e EXPANDIDA, SHADOW RAM, SETUP, STRAPS, WINCHESTER, comers*) de XT em AT, comers*) de 286 em 386 
e 486, co-processadoraiitm&ico, instaJagdo de MOUSE, MODEM/FAX, SCANNER, SOUND BLASTER, etc. 



TiBM PC: DICAS E MACETES DE SOFTWARE VOL. 1 

Centenas de DICAS para uoc€ usar melhor o sea PCIII 

Vocd nunca viu tantas InformagOes uteis sobre SOFTWARE em urn Onico livro. A cada pdgina 6 encontrada uma dica que poda ser imediatamente apHcada ao seu 
computador, resultando em maior velocidade, produtividade, seguranga e facilldade de uso. E mate: COpias de dtequetes protegidos, uso de MEM6RIA 
ESTENDIDA, EXPANDIDA, EMS, XMS, HMA, UMB, compactadores de arquivos, recuperagflo de discos formatados e arquivos apagados, programas grillcos, 
proteg*> do computador em nfvel de software, teste da CPU, de WINCHESTER e da piaca de video, comandos uteis do DOS, como crtar da melhor forma sous 
arquivos AUTOEXEC.BAT e CONFIG.SYS. E mate dezenas de outras dicas. 

illBM PC: DICAS E MACETES DE SOFTWARE VOL. 2 

Aprenda mais outras DICAS muito uteis que o ajudarao a esciarecer suas duuidas. 

Mate dicas para vocO Urar o rrdbdmo proveito do seu micro. Fique por dentro das novidades do MS-DOS 6, saiba como acelerar o desempenho do 
WINCHESTER, dos DRIVES e do CD-ROM, usar a membria, recuperar arquivos apagados, melhorar os arquivos BATCH, duplicar a capaddade do winchester, 
editar trilhas e setores, BACKUP, programas gr&ficos, animagbes gr&ficas, comunlcagdo de dados, ANTI-VfRUS, acentuagdo, miscetdnea de dicas e macetes e 
muitas outras grandes utilidades. 






SOFTWARE DE DOMINIO PUBLICO E SHAREWARE 

SOUCITE NOSSO CATALOGO GRATUITAMENTE E VEJA AS VANTAGENS DOS NOSSOS PROGRAMAS: 

1) Sdo todos compactados com o popular compactador PKZIP, o que reduz o tamanho e o custo para os clientes. 

2) Sdo fomeddos em dtequetes novos e de BOA QUALIDADE. 

3) Sdo todos acompanhados de urn arquivo LAERCIO.DOC que traz as instrugtes para a instalagdo e sua imediata utUizagdo. 

4) Sdo todos testados e homologados pete nossa equips tbcnica. 

5) A maior vantagem: sdo cobrados por tamanho, en*> por disco. Enquanto outras empresas cobram 3 discos por 3 programas de 120 KB, nbs cobramos por 
apenas urn Onico disco de 360 KB com os trOs programas juntos. 
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Recorte, preencha e envie para: 



( ) Estou enviando cheque nominal ao autor, Ladrdo Vasconcetos 
( ) Desejo receber o catdlogo de programas 

Pregos em REAL: 

COMO MONTAR, CONFIGURAR E EXPANDIR SEU AT 386/486 ( ) 27,50 REAIS 
IBM PC: DICAS E MACETES DE SOFTWARE VOL 1 ( ) 23,75 REAIS 

IBM PC: DICAS E MACETES DE SOFTWARE VOL. 2 ( ) 27,50 REAIS 
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CAIXA POSTAL 4391, CEP 20.001-970 Rio de Janeiro, RJ 
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Enderego: 

Cidade: CEP: 

Telefone: 

Para sua seguranga, enuie em carta registrada. 



LVC - LAERCIO VASCONCELOS COMPUTAgAO LTDA. Av. Rio Branco, 166/2812 Rio de Janeiro. Tel (021) 262-1776, Fax (021) 240-0663. 




Antecipe-se 





CASE "I" ' p ar a 

cima 

sl$ = TAB$ (LBOY - X, CBOY) ' 

contetido do I s lugar acima do homanzinho 
(se 4 pedra,etc) 

s2$ s TAB$ (LBOY - 2, CBOY) ' 

contaudo do 2 s lugar acima do homanzinho 
lbol = LBOY - 1 '1* 

posig jo numArica acima do homanzinho 
lbo2 = LBOY - 2 '2* 

posig io numArica aclma do homanzinho 
' I s a 2 s poB± 9 _a 8 numdricas ao lado 
(dir. ou esq.) do homanzinho. 

' Sio iguais a atual, pois ale mover- se-4 

horizontalmanta 

cbo2 = CBOY 

obol = CBOY 

CASE "K" ' Para 

baixo 

Sl$ = TAB$ (LBOY + 1, CBOY) 

conteddo do 1* lugar abalxo do homanzinho 

s2$ = TAB$ (LBOY + 2, CBOY) 

contetido do 2 s lugar abalxo do homanzinho 

lbol = LBOY +1 '1* 

posig io numdrica abalxo do homanzinho 

lbo2 x LBOY + 2 ' 2 2 

posig io numdrica abalxo do homanzinho 

' I s a 2 s posig_es numdricas ao lado 

(dir. ou esq.) do homanzinho. 

' Sio iguais a atual, pois ale mover- se- A 

horizontalmanta 

cbol x CBOY 

cbo2 x CBOY 



CASE "J" ' Para a 

ssouerda 

sl$ X TAB$ (LBOY, CBOY - 1) ' 

contetido do I s lugar A esquerda do 
homanzinho 

s2$ x TAB$ (LBOY, CBOY - 2) ' 

contaudo do 2 9 lugar A esquerda do 
homanzinho 

obol x CBOY - 1 ' is 

posig jo numdrica A esquerda do homanzinho 
cbo2 x CBOY - 2 2 2 



posig | o numdrica A esquerda do homanzinho 
' I s a 2* posig_es numdricas ao lado 
(inf. ou sup.) do homanzinho. 

' Sio iguais a atual, pois ale mover-se-A 

verticalmente 

lbol x LBOY 

lbo2 x LBOY 

CASE "L" , p ara a 

diraita 

sl$ x TAB$ (LBOY, CBOY + 1) ' 

contetido do 1* lugar A diraita do 
homanzinho 

s2$ x TAB$ (LBOY, CBOY +2) ' 

contaudo do 2 9 lugar A diraita do 
homanzinho 

cbol x CBOY +1 » 1 # 

Posig io numdrica A diraita do homanzinho 
cbo2 x CBOY + 2 ' 2 9 

posig io numdrica A diraita do homanzinho 
' I s a 2 9 posig_es numdricas ao lado 
( inf . ou sup . ) do homanzinho . 

' Sio iguais a atual, pois ale mover-sa-A 

verticalmente 

lbol x LBOY 

lbo2 x LBOY 

CASE ELSE 

' Se a letra pressionada nio tarn fungi o 



no jogo, volta para o inicio 
GOTO INICIO 
END SELECT 

' Faz um blic. . 

PLAY "MBt255o5164deg" 

s$ x TAB$ (LBOY, CBOY) ' contaudo atual 
da posig jo do homanzinho 



' testa contaudo da l 9 pos. 

SELECT CASE sl$ 

'Se for parade , volta ao inicio 
CASE 

GOTO INICIO 

'Se for parade nio ecoldgica, volta ao 

inicio 

CASE "/" 

GOTO INICIO 



'Se o I s for CHATO, volta ao inicio 
CASE "Y" 

GOTO INICIO 



CASE "o" 'Se o l 9 for pedra 

'Se 2 9 for pedra, buraco cheio, parades 

ou chato, volta ao inicio 

IF s2$ x "o" OR s2$ x OR s2$ x "/" 

OR s2$ x "0" OR s2$ x "Y" GOTO INICIO 

IF s2$ = " " THEN s2$ x "o"« sl$ = " " 

' 2* vazio ? entio 2 2 =pedra a l 9 x nada 
' 2* buraco ? entio 2*xb. cheio a l*x 
nada. Ganha 300 pts a acrascenta 1 pedra 
no bur. 

IF s2$ x "O" THEN s2$ x "0"« sl$ x " 

QT x QT + li ESCORE x ESCORE + 300 i PLAY 
"MBtl00o3bcdefga" 

CASE "0" 'So o 1* for b. cheio 

'Se 2 9 for pedra, buraco cheio, parades 

ou chato, volta ao inicio 

IF s2$ S "o" OR s2$ X OR s2$ x "/" 

OR s2$ x "0" OR s2$ x "Y" GOTO INICIO 
' 2* vazio ? entio 2 9 xpedra a l*x 
b. vazio. Perde 300 pts a dim i pedra no 
bur. 

IF s2$ = " " THEN s2$ x "o" : sl$ = "O" s 
QT x QT - 1: ESCORE x ESCORE - 300 « PLAY 
"MBtl00o3agfedcb" 

IF s2$ = "O" THEN s2$ = "0" j sl$ = "O" 

' 2* buraco ? entio 2 9 xb. cheio a 
l 2 =b. vazio 



CASE ELSE 
END SELECT 

' Radasenha l 9 a 2 2 posig_as 
CALL PoeFig(lbol, cbol, sl$) 

CALL PoeFig(lbo2, cbo2, s2$) 

'Radasenha posig io antiga do homanzinho 
CALL PoeFlg ( LBOY, CBOY, TABS (LBOY, 

CBOY) ) 

' Rafaz tabulairo cam as novas figuras 
(padras,etc) nas posig_as movidas 
TAB$ (lbol, cbol) = sl$ 

TAB$(lbo2, cbo2) = s2$ 

Continua na proxima edigao 
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Graz 



CRAZY SOFT INFORMATICA 
ft: 456-8373 



PRAZO PI GRAVAQOES: 24 hs 
PEDIDO ACIMA DE 1 5 DISCOS 
GANHE 1 HD DE BRINDE 
SOLICITE CATALOGO GRATIS 
COM RELAQAO COMPLETA 



R. TIRADENTES, 433 CONJ. 5 
DIADEMA - SP 
CEP: 09911-190 



MENORES PREgOS 

DISCO CNGRAVAgAO: 

DISCO 5 V4 DD - R$ 1,00 

DISCO 5 V4 HD - R$ 1,50 

CORREIO P/ 20 DISCOS - R$ 2,50 



PEDIDOS : Por carta ou fone de Seg. a Sex. das 9:00 &s 19:00 hs aos Sab. das 9:00 as 15 
relacione o Nome e a Quantidade de discos de cada programa. 

PAGAMENTO: Envie um cheque nominal a FRANCISCO BELEM FERREIRA no valor 
de seu pedido, ou fa?a um deposito em conta no Bradesco Ag. 0302-6 CC. 0124443/4 
Enviando xerox do deposito junto com o pedido, nao esquecer de adicionar a taxa de correiQi 



OS MELHORES JOGOS PARA PC , 



OSMELHORES 

AI£NE IN THE DARK II 09 

AMERICAN GLADIATOR 02 

B-17 FLYING PQRINESS 05 

B-WING (X-WING) 01 

BLAKE STONE 03 

BODY BLOW 01 

CHESS MANIAC 5 AND 1 12 

CHESS MASTER 4000 03 

COMANCHE MAX. OVERKILL 03 
CRISIS IN THE KHEMILIN 04 

DARK SEED 05 

DOOM 05 

DRACULA 01 

ONE II 04 

EMPIRE SOCCER 94 01 

F-15 SHORE m 06 

FALCON 3.0 0£ 

FURY GF THE FURIES 02 

GABRIEL KNIGHT 11 

OM® m OS 

HARD BALL 3 03 

HEART OF CHINA 01 

IMPERIAL PERSUIT (X-WING) 01 
INDY CAR RACING 03 

JORDAN IN FLIGHT 02 

JURASSIC PARK 04 

LEGEND OF KYRANDIA II 06 

IBMNl'S n THE TRIBES 02 
MANIAC MANSION II DAY UN. O' 
METAL £ LANCE 06 

MCNKEY ISLAND II 06 

MORTAL KOMBAT 01 

PINBALL FANTASIES 02 

PIRATES GOLD 0< 

PRIVATEER 01 

RALLY 0( 

SAM £ MAX O' 

SANGO FIGHTER Of 

SHADOW OF PRESIDENT O'. 

SIM CITY 2000 o; 

SPACE HULK 0< 

SPEAR OF DESTINY 0; 

SPECIAL FORCES 0: 

SPEED RACER 0! 

SHEET FBUTER II 0 

TASK FORCE 1942 0 

TERMINATOR RAMPAGE 0 

TROLLS 0 

WDLFEINSTAIN (60 MISSOES) 0 



ACAO - AVENTURA 

ALTERED BEST 02 DD 

ASTERIX 02 DD 

BABY JO JO IN GOING HOME 01 HD 
BARBARIAN 01 DD 

BATMAN THE MOVIE 01 HD 

BIO MENACE 01 HD 

CABAL 02 DD 

CAPTAIN COMIC II 01 HD 

CD -MAN 01 HD 

COBRA MISSION 05 HD 

COLORADO 02 DD 

COMMANDER KEEN V 01 HD 

CRISTAL CAVES 02 DD 

DICK TRACY 06 DD 

DOUBLE DRAGCN III 01 HD 

DRAGCN ■ S LAIR IV 12 DD 

ELECTRO BODY 01 DD 

FIRST SAMURAI 01 HD 

FLASH BACK 03 HD 

GHOST "N "GOBLINS (JOYSTl 01 DD 
GHOGTBUSTEE II 01 HD 

GODS 01 HD 

GOLDEN AXE 02 DD 

GREMLINS II 01 DD 

HOME ALONE I 02 DD 

IND. JONES LAST CRUZADE 02 DD 
JILL CF HE XIO£ U 01 HD 

KARATEKA 01 DD 

MIAME VICE 04 DD 

MARIO BROSS IS MISSING 05 HD 
MOONWALKER 01 HD 

OPERATION WOLF 03 DD 

OSCAR 01 HD 

OUT OF THIS WORLD 01 HD 

PREDAD0R II 03 DD 

PRUCE CF PERSIA II 02 DD 

ROBOCOD 01 HD 

ROBOCOP 3D 04 HD 

SHDOBI 02 DD 

SIMPSNS II 02 HD 

SIMF92NS IK 01 HD 

SUPER CONTRA 03 DD 

TARTARUGA NINJA III 01 HD 

TERMINATCR II 01 HD 

THE HUMANS 02 HD 

THE LOST VIKINGS 01 HD 

TH3CEER II 01 HD 

ULTRA BOTS 02 HD 

WOLFEIN STAIN 3D 01 HD 

WOLFEIN STAIN UP-GRADE 01 HD 



ADVENTURE - R.P. 
ALONE IN THE DARK 
AMAZON 

BATMAN THE RETURN 
BLADE OF DESTINY 
CARMEM S. DIEGO DELUXE 
CONQUEST OF CAME LOT 
CURSE OF ENCHAKT (VGA) 
DARK LAND 
DUE n 

ECOS QUEST (VGA) 

ELVIRA n 

GALLI0NS OF GLORY 
GOBLINS 
GOBLINS II 
HEART OF CHINA 
HOOK 

IND.JCHES FATE OF ATLANT. 
INSPECTOR GADGET 
KGB (VGA) 

LEGEND OF KYRANDIA 
LEISLFE SUIT LARRY V 
LIFE £ EE70H II 
REX NEBULAR 
ROBIN HOOD 
ROME 

SHERLOCK HOLMES 
THE DARK HALF 
THE IMMORTAL 
ULTIMA UNDERWOLD II 
VINGANCE OF ESCALIBUR 



DOWN RAIDER 

ELITE 

EPIC 

GALACTIX 
E*A (VGA) (386) 
KILOBLASTER 
MACH 3 
MAJOR STRIKE 
MANTIS 

PLAN 9 FROM OUTER 
STELLAR 7 
STAR LEGIONS 
STRIKE COMMANDER 
TWILIGHT 2000 
VOLFIED 

WING COMMANDER II 
X-WING 



SIMULADORES 



A-10 TWK KILLER H 


08 


DD 


ACES OF PACIFIC 


03 


HD 


AFTER BLWER II 


02 


DD 


BATTLE HAWKS 1942 


02 


DD 


F-117 


02 


HD 


F-14 TOM CAT 


01 


HD 


F-15 SntIKE EAGLE EE 


02 


DD 


F-16 COMBAT PILOT 


02 


DD 


FLIGHT SIMULATOR 4.0 


02 


DD 


GREAT NAVAL BATTLE 


03 


HD 


GUN SHIP 2000 


03 


HD 


JET FKHIER 13 


01 


HD 


LHX ATTACK CHOPPER 


02 


DD 


M-l TANK PLATTON 


01 


HD 


PACIF ISLAND (VGA) 


01 


HD 


RED BARON (VGA) 


02 


HD 


SHERMAN M-4 


01 


HD 


SHENT SKVICE II 


01 


HD 


STUNT ISLAND 


06 


HD 


TASK FORCE 1942 


06 


HD 


TORNADO 


03 


HD 


WOLF PACK 


01 


HD 


CORRIDAS 






1000 MIGLIAS 


02 


HD 


4X4 OFF ROAD RACING 


01 


DD 


B.M.W 


01 


HD 


CAR £ DRIVER 


03 


HD 


CRAZY CAR II 


01 


HD 


F-40 PERSUIT SIMULATOR 


01 


DD 


FERRARI FORMULA 1 


02 


DD 


GRAND PRIX UNLIMITED 


01 


HD 


HARD DRIVING 


01 


DD 


INDIANAPOLIS 500 


02 


DD 


U7TOS SPIRIT TURBO 


01 


HD 


MOON SHINE RACES 


03 


DD 


MOTO CROSS SUZUKI 250cc 


01 


HD 


OUT RUN 


02 


DD 



POLE POSmCN II 
POWER DRIFT 
STREET RCAD II 
STUNTS 
STUNT ERIVER 
TEST HOVE in 
THE CYCLES 
TURBO OUT RUN 
VETTE 

WORLD CIRCUIT 



BATTLE CHESS WINDOWS 


01 HD 


BATTLE CHESS 4000 


08 HD 


CHESS MASTER 3000 


01 HD 


CHESS MASTER WINDOWS 


01 HD 


EIGHT BALL DE LUXE (VGA) 


02 HD 


EPIC PDCAIL n 


01 HD 


HOYLE'S 


02 HD 


JIMMY WHITE SNOOKER 


01 DD 


MCNOPOLE DELUXE FOR WIN 


.02 HD 


PC POOL CHALLENGE 


01 DD 


PIMBALL DREAMS 


01 HD 


POKER WINDOWS 


01 HD 


RACK -EM 


01 DD 


SARGON V 


01 HD 


SILVER BALL 


01 HD 


TRISTAN 


01 HD 


TRUMFH CASI1£ II (VGA) 


05 DD 


VEGAS GAMBLER 


01 DD 


RACIOCINIO 




QVTT.T7ATICN 


02 HD 


CREEPERS 


01 HD 


EPOS... ins m 


03 DD 


J-BIRD 


01 DD 


JIG SAW PUZZLE 


02 DD 


LEMMING'S 


03 DD 


LEMMING'S CHRISTMAS 


01 DD 


LEMMING'S - OH! NO MORE 


01 DD 


MICKEY JIG SAW PUZZLE 


01 HD 


POPULOUS 


02 DD 


PUSH OVER 


01 HD 


SOKOBAN 


01 DD 


SUPER TETRIS 


01 HD 


X-ROCK 


01 HD 



PORNO & EROTICO 

BUNNY'S BEACH BALL 01 

CINE PORNO 02 

LADY LOVE 02 

raxia oi 

PLAYBOY 02 

PORNO IV 01 

SEXXY 05 

SEX CAPADES 01 

SQUARES 03 

snap kker m oi 

SUPER PORNO 



APUCATIVOS PARA PC S 



1001 


ED. GRAFICO 


01 DD 


FDREAD fi FDFORMAT 


FORM AT ADO R 


01 DD 


1000 ICCNES 


ICONES P/ WINDOWS 


01 DD 


ABC FUN KEY 


ENSINA DCLfiS 


01 DD 


GRAPH IN THE BOX 


ED. GRAFICO 


01 DD 


AFTER DARK I 


FHC7T. THA 


01 HD 


ABC TALK 


ENSINA DCLfiS 


01 DD 


HAUNTED HOUSE SOUND (SB) 


PROG. SONORO 


01 HD 


AFTER DARK II 


♦ PROT. THjA 


01 HD 


ABILITY 


EL. TEXTO GRAF. 


02 DD 


IMAGE 3-D 


ED. GRAFICO 3-D 


01 DD 


BB VIEW 


CARRES. TELA 


01 DD 


ADVENTURE TOOL KIT 


EL. JOGOS 


02 DD 


LABELS PRO 


H3. ETIQUEIAS 


02 DD 


BIT FAX FOR WINDOWS 


UTIL. P/ FAX 


01 DD 


AGENDA ELETRONICA 


AGENDA 


01 DD 


LAffI.fi UNLIMITED n 


EL. ETIQUEIAS 


01 HD 


CAKE WALK PRO (SB) 


ED. MUSICAL 


01 HD 


AGENDA TELEFONICA 


AGENDA 


01 DD 


LYRA (SB) 


ED. MUSICAL 


01 HD 


ENCORE (SB) 


ED. MUSICAL 


02 HD 


AMNESIA (VGA) 


DQ40ST. GRAF. MUSIC. 


01 HD 


MODPLAY 


PROG. MUSICAL 


01 DD 


FINALE (S) 


ED. MUSICAL 


02 HD 


AMPLE NOTICE 


AGENDA 


01 DD 


MUSICAS P/BAND IN T. BOX 


MUSICAS 


01 HD 


FONTS FOR WINDOWS # 1 


LETRAS 


01 HD 


AQUARELA 


ED. GRAFICO 


01 DD 


MJSICAS # 1 ( * .MOD) 


MUSICAS 


04 HD 


FONTS FOR WINDOWS ft 2 


♦ LEIRAS 


01 HD 


ARJ MENU 


COM PACT ADO R 


02 DD 


MJSICAS # 2 ( * .MOD) 


MUSICAS 


04 HD 


ICCN DO IT 


ICONES ANIM. 


01 HD 


ARTIST 


ED. GRAFICO 


01 DD 


NEOPAINT 2 (VGA) 


ED. GRAFICO 


01 HD 


ICON HEAR IT 


ICCNES ANIM. SON. 


01 HD 


ASTROLOGY 94 


ASTROLOCIA 


01 DD 


NEVER LOCK 93 


DESTRAV. DE JOGOS 


01 DD 


ICCNE EDITOR 


EL. ICCNES 


01 DD 


ATLAS PC 


ENCICLOPEDIA GEXX3. 


01 DD 


PC GLOBE 


ENCICLOPEDIA GEOG . 


01 HD 


KWIKDRAW 


EL. CAD 


01 DD 


BACXIT2.0 


COM PACT ADO R 


01 DD 


PKZIP 2.04 


COMPACTADOR 


01 DD 


LIGHTNING FOR WINDOWS 


ED. GRAFICO 


02 HD 


BAND IN THE BOX (SB) 


ED. MUSICAL 


01 HD 


PRINT MASTER 


ED. DE CARTAZES 


01 DD 


MASTER TRAX PRO (ffl) 


ED. MUSICAL 


01 HD 


BANNER MANIA 


EL. EE FAIXAS 


01 DD 


PRINT SHOP 


ED. DE CARTAZES 


01 HD 


MID 2 MOD (ffi) 


CCNV. ».M» P/ * -MID 


01 HD 


BARCODE 


ED. CODIGO DE BARRA 


01 DD 


PRO -DOS 


COW. * .EAT P/ *.EXE 


01 DD 


MIDI OOtLECTICN ft 1 


MUSICAS 


01 HD 


CHECK IT 


CHECK-UP DO MICRO 


02 DD 


PROFISSIONAL FILES 


MALA DIRETA 


01 HD 


MIDI CPU JETTON ft 2 


MUSICAS 


01 HD 


CHEMICAL MOLECULAR 


AULA DE QUIMICA 


01 DD 


PROFESSOR DE INGLfiS 


ENSINA DGLfiS 


02 DD 


MIDI COLLECTION ft 3 


MUSICAS 


01 HD 


COLLAGE 


ED. i K ej .1 1 


01 DD 


RBLiat IT 


DESKTOP PUBLISHER 


08 DD 


MIDI SOFT SIUDIO (ffl) 


ED. MUSICAL 


01 HD 


COMPUSHOW 2 


DEMOST. DE TELAS 


01 DD 


Q-387 


EMULATOR DE CO-PROC. 


01 DD 


MODPLAY FOR WINDOWS 


PROG. MUSICAL 


01 DD 


CRYSTAL 


DEXOST. GRAFICA 


01 DD 


RAW COPY 


DESTRAV. DE JOGOS 


01 HD 


MCNTAIN FRACTAL 


FL. GRAFICO 3-D 


01 DD 


D.A.P VS 147 


DESTRAV. DE JOGOS 


01 DD 


SKY GLOBE 


MAPA ESTRELAR 


01 DD 


NJ'S FILE fdcer 


COMPACT. £ DESCOMP. 


01 DD 


DAZZLE (VGA) 


DEXOST. GRAFICA 


01 DD 


SPECTRUM EMULATOR (VGA) 


EMUL. TK90-X 


01 DD 


PASSPORT MUSIC (SB) 


ED. MUSICAL 


02 HD 


mm HUNT 2.0 


ED. GRAFICO 


01 HD 


TELAS # 1 .GIF (V3A) 


THAS * .GIF 


02 HD 


PICTURES ABC 


FROG. INFANITL 


01 DD 


DISK DUPE 4.01 


COPIADOR 


01 DD 


TELAS (*.PCX) (VGA) 


TEAS *.PCX 


04 DD 


PKZIP FOR WINDOWS 


COMPACTADOR 


01 DD 


DISK MANAGER LABELS 


EL. ETIQUEIAS 


01 DD 


THE MUSIC CONSTRUCTION 


ED. MUSICAL 


01 DD 


SOUND FOR WINDOWS 


S/ PtACA DE SOM 


01 DD 


EASY INVENTORY 


OONTR. DE ESTOQUE 


01 DD 


TRK3C BLASTER (ffi) 


ED. MUSICAL 


01 HD 


THE CRUM 4.0 (S) 


ED. MUSICAL 


01 HD 


ELET. WORKBENCH (VGA) 


el. aRcurro fifth . 


01 HD 


TURBO DESIGNER 


ED. GRAFICO 


01 DD 


THE MOON TOOC 


INFORM. LUNAR 


01 DD 


ENVELOPE LASER 


ED. QJVELOPE 


01 DD 


VISUAL COMPOSER (AD) 


ED. MUSICAL 


01 HD 


WGOLDIE FOR WINDOWS 


animacAo grAfica 


01 DD 


STICK 2.09 


CCNTR. DE ESTOQUE 


01 DD 


VISUAL PLAYER 2.0 


PROG. MUSICAL 


01 HD 


WIN FAX PRO 


UHL. P/ FAX 


01 HD 


F70L 


EL. TEXTO 


01 DD 


VGA COPY PRO 5.0 


COPIADOR 


01 HD 


WIN MASTER 


ED. GRAFICO 


03 HD 


FANCY LABEL 


EL. ETIQUEIAS 


01 DD 


VTX PC 


VIDEO TEXTO VTX 


01 DD 


WIN WAVES 


MUSICAS £ SONS 


03 HD 


FAWTAVISION 


ED. GRAFICO 


01 DD 


WHACKER TRACKER 1 . 01 


PROG. MUSICAL 


01 DD 


WINDOWS imLIDIES 


FERR. P/ WINDOWS 


01 DD 




PROGRAMA 



Criador de leones 



Crie leones com facilidade 



Micro: IBM XT/AT 
Memorla: 512 Kbytes 
Video: VGA 
Unguagem: QBasic 
Requisites: Nenhum 



Carlos Andr6 Sanches de Souza 



Este programs permite a criapao de leones. Ao ser 
executado, aparecera um grafico com 32 linhas e 32 colunas 
e um cursor no primeiro quadrado. Use as setas para mover 
o cursor pelo grafico e a barra de espago para marcar um 
ponto. 

Confbrme voce marca os pontos no grafico, vai formando 
um desenho no quadrado menor, do lado direito da tela. 

Para trocar de cor, aperte “+” ou Para ir para o menu 

superior aperte a tecla TAB. As opgdes sao: 

SALVAR - Salva o desenho com a extensao “.CCC”. Esse 
arquivo nao e um arquivo de leone. 

ABRIR - Carrega um arquivo ".CCC”. 

NOVO - Apaga o desenho. 

RISGAR - Enquanto estiver escrito RISCAR, voce desenha 
normalmente. Se escolher essa opgao, a palavra RISCAR 
mudara para PIMTAR, MUDAR ou AUTO: 

PINTAR - Pinta o desenho 
MUDAR - Troca a cor do desenho 
AUTO - Desenha sem pressionar a barra 

RODAR - Gira o desenho em 90 graus. 

CRIAR - Salva o desenho com a extensao “DLL”. Esse 
arquivo 6 um arquivo de leone. 

SAIR - Sai do programs. 

Para sair do menu, basta pressionar TAB novamente. 

CARLOS ANDRi SANCHES DE SOUZA cursa o primeiro colegial e 
programa em Basic, Clipper e Dbase. 

54 MICRO SISTEMAS 



CCC. BAS 



DECLARE SUB telal ( ) 

DECLARE SUB botao3 (xll, yll, x2 ! , y2 1 ) 
DECLARE SUB botao4 (xll, yll, x2 J , y2 I ) 
DECLARE SUB botao (xll, yll, x2 1 , y2 I , 
palav2$, lc$) 

DECLARE SUB letra (palav$) 

SCREEN 12: PAINT (0, 0), 7: DRAW 
"bm50, 50s32c0" : CALL letra ( "CRIADOR DE 
ICONES") 

DRAW "s8" : CALL botao(100, 390, 150, 420, 
"CCC 

DRAW "bm410,410s8": CALL letra("FEITO 
POR:") 

DRAW "bm330, 430s8" : CALL letra ("CARLOS 
ANDRE SANCHES DE SOUZA") 

CALL botao3 (300, 390, 600, 450) 

DRAW 

"bm200, 200c0s4r60d20r20d30110u20110d30110dl 
0rl0dl0120u20120d20120ul0rl0ul0110u30110d201 
10u30r20u20brl0bdl0rl0dl0110ul0br40dl0110ul0 
rl0bd30dl0140ul0r40" 

PAINT (201, 201), 6, 0: LINE (350, 100)- 
(630, 330), 0, B: PAINT (351, 101), 15, 0 
CALL botao3 (350, 100, 630, 330) 

FOR £ = 380 TO 530 STEP 10: FOR g ■ 150 TO 
280 STEP 10 

LINE (f, ff)-(f + 10, g + 10), 0, B 
IF POINT (£ - 225, g + 25) = 6 THEN PAINT 
(f + 1, g + 1), 0, 0 

NEXT g, f: LINE (270, 210)-(420, 190), 0 
LINE (290, 230) - (440, 210), 0: LINE (270, 
260) - (420, 250), 0 

a$ o "": WHILE a$ = a$ = INKEY$ : WEND: 

a$ = "": CLS 
run$ = 

"001010AAB00000C200D000E000A000F00010400000G2" 
nm2$ = 

"GOOGOOOGGOGOOOGOGOGGOOGGGOHHHOOOIOOIOOOI 

I0I000I0I0II00III0" 

DIM seta(200) , tela(3000), po(33, 33) 

LINE (50, 150) - (80, 180), 15 
LINE (50, 180) - (80, 150), 15 
GET (50, 150) -(80, 180), seta 
LINE (50, 150) - (80, 180), 0, BF 
PAINT (0, 0), 7 
CALL telal 




0 MELHOR DA 
INFORMATICA 
NACIONAL 



Quern quer ficar "por dentro " da 
informatica nacional nao pode 
deixar de ler Micro Sistemas. 
Sempre atenta aos acontecimentos 
e tendencias, Micro Sistemas e a 
revista que mais reflete o que 
acontece no mercado brasileiro. 
Feita por brasiieiros e para 
brasileiros , Micro Sistemas traz 
sempre em suas paginas os 
assuntos mais quentes do 
momento, programas em diversas 
linguagens , rotinas, I ivros, cartas 
doe leitores, etc. 




Alem disso a revista Micro 
Sistemas e a unica publicagao que 
tern um espago dedicado ao 
Shareware e a mfdia magnetica. 
Publica ainda mensalmente a 
segao Pesquisa onde os ieitores 
apontam os programas mais 
usados dentre jogos, aplicativos e 
utilitarios alem das marcas de 
disquetes mais confiaveis. 

Por tudo isso voce nao pode deixar 
de ler Micro Sistemas. Nao perca 
mais tempo! Garanta mensalmente 

0 seu exemplar fazendo uma 
assinatura anual de MICRO 
SISTEMAS por apenas: 

1 ANO - R$ 45,00 

2 ANOS - R$ 90,00 



»!» + + +4-K X4.+ ♦ ♦.<XX>.-» + **.4X> + 4 + +** X X+ ♦ *>X X 
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Enter Press Editors Ltda. 

Lourengo Ribeiro, 124-A 
Rio de Janeiro - RJ 
CEP 21050-510 



ENTER PRESS f itor ltda. 



nofnjoal n® 

da, referents a uma assinaitura 




ON KEY (10) GOSUB sobre 
KEY (10) ON 
Xl = 10: x2 = 9 

106? ( 15 101)_(719 ' 101 )' 15: PAINT (0, 
PSET (0, 100), 6 

FOR f = 120 TO 120 + 32 * xl STEP xl 

LINE (f, 120) - (f , 120 + 32 * x2), 7 

NEXT f 

FOR f = 120 TO 120 + 32 * x2 STEP x2 

LINE (120, f ) - ( 120 + 32 * xl, f ) , 7 

NEXT f 

x= 0: y = 0: c = 0: pp = 0: ml =40 

LINE (500, 120) - (535, 155), 1, B 

FOR f » 0 TO 15: LINE (f * 35 + 10, 420)- 

(f * 35 + 45, 460), 0, B: PAINT (f * 35 + 

15, 430), f, 0: NEXT 

LINE (500, 200) - (536, 236), 0, B 

cores: 

PUT (c * 35 + 12, 425), seta: LINE (502, 

202 ) - (534 , 234), c, BF 

seta: 

g = x: w » y 

LINE (120 + x * xl, 120 + y * x2)-(120 + 

(x + 1) * xl, 120 + (y + 1) * x2 ) , 0, B 

a $ = "* : WHILE a$ = "": a$ = INKEY $ : WEND 
SELECT CASE a$ 

CASE CHR$ ( 0 ) + "H" : y = y + (y > o ) 

CASE CHR$(0) + "M" : X = X - (x<31) 

CASE CHR$ ( 0 ) + "P" :y=y- (y<31) 

CASE CHR$(0) + "K": x = x + (x > 0) 

CASE " ": IF pp = 0 THEN LINE (121 + x * 
xl, 121 + y * x2 ) - (119 + (x + 1) * xl, 119 
+ (Y + 1) * x2), c, BF: PSET (502 + x, 122 
+ Y), c ELSE IF pp = 1 THEN GOSUB pintar 
ELSE IF pp = 2 THEN GOSUB mudar 
CASE CHR$(13): LINE (121 + x * xl, 121 + y 

\? 2) :P 19 + (* + 1) * Xl, 119 + (y + 1) * 

X2), 15, BF: PSET (502 + x, 122 + y) , 15 

CASE "+": PUT (c * 35 + 12, 425), seta: c 

= c - (c < 15): GOTO cores 

CASE "-": PUT (c * 35 + 12, 425), seta: c 

= c+ (c > 0) : GOTO cores 

CASE CHR$ ( 9 ) : GOSUB menu 

END SELECT 

IF g <> x OR w <> y THEN LINE (120 + g * 

xl, 120 + w * x2)-(120 + (g + 1) * xl, 120 

tii? + x2 >' 7 ' Bs IF ~ 3 THEN LINE 

(1 2 1 + X * xl, 121 + y * x2)-(119 + (x + 

x1 ' 119 + (Y + 1) * x2 ) , c, BF: PSET 
(502 + x, 122 + y) , c 
GOTO seta 
menu: 

m2 = ml: LINE (ml, 35)-(ml + 67, 60), 0, B 

WHILE = ""s a$ = INKEY$ : WEND 
SELECT CASE a$ 

CASE CHR$(0) + "M" : ml = ml - 80 * (ml < 

CASE CHR$(0) + "K" : ml = ml + 80 * (ml > 

40) 

CASE * ": ON (ml + 40) / 80 GOTO opl, op2, 
°P3, OP 4, op5, op6, op7 

CASE CHR$ { 9 ) : LINE (m2, 35) -(m2 + 67, 60), 
7, B: RETURN ' " 

END SELECT 

LINE (m2, 35) -(m2 + 67, 60), 7, B 

GOTO menu 

pintar: 

po = POINT (122 + x * xl, 122 + y * x2) 

IF po = c THEN RETURN 

IF c <> 0 AND po <> 0 THEN cl = 0 ELSE IF 
C = 1 OR po = 1 THEN Cl = 2 ELSE cl = 1 
LINE (501, 121)- (534, 154), cl, B 
FOR g = 0 TO 31: FOR f = 0 TO 31 

** POINT ( 502 + f* 122 + g) THEN PSET 
(502 + f, 122 + g), cl 



NEXT f, g: PAINT (502 + x, 122 + y) , c, cl 
FOR ff = 0 TO 31 
FOR f = 0 TO 31 

IF c = POINT (502 + f, 122 + g) THEN LINE 
(121 + f * xl, 121 + g * x2 ) - ( 119 + (f + 

1) * xl, 119 + (g + 1) * x2) , c, BF 

NEXT f, g 

FOR g = 0 TO 31 

FOR f = 0 TO 31 

PSET (502 + f, 122 + g) , POINT(122 + f * 
Xl, 122 + g * x2 ) 

NEXT f, g 

LINE (501, 121) - ( 534, 154), 15, B 

RETURN 

mudar : 

po = POINT (122 + x * xl, 122 + y * x2) 

IF po = c THEN RETURN 
FOR g = 0 TO 31 
FOR f = 0 TO 31 

IF po = POINT (122 + f * xl, 122 + g * x2) 

THEN LINE (121 + f * xl, 121 + g * x2)- 

(119 + (f + 1) * xl, 119 + (g + 1) * x2 ) , 

c, BF: PSET (502 + f, 122 + g) , c 

NEXT f, g 

RETURN 

letras : 

GET (180, 180) - (365, 250), tala 
LINE (180, 180) - (365, 250), 7, BF 
CALL botao(180, 180, 365, 250, "NOME", 

"U") 

LINE (200, 200) - (345, 230), 0, BF 
CALL botao4 (200, 200, 345, 230) 
lt$ = "" 
letra: 
a$ = "" 

WHILE a$ = a$ = INKEY $ : WEND 

IF ( (a$ >= "a" AND a$ <= "z") OR (a$ » 

"A" AND a$ <= "Z") ) AND LEN(lt$) < 8 THEN 
lt$ = lt$ + a$: LOCATE 14, 31: PRINT lt$ 

IF a$ = CHR$(8) AND lt$ <> "" THEN LINE 
(202, 202 ) - (343 , 228), 0, BF: lt$ = 

LEFT$ (lt$, LEN(lt$) - 1): LOCATE 14, 31: 
PRINT lt$ 

IF a$ <> CHR$ ( 13 ) THEN GOTO letra 

PUT (180, 180), tela, PSET 

LINE (m2, 35)- (m2 + 67, 60), 7, B: RETURN 

opl: 

GOSUB letras 

IF lt$ = "" THEN RETURN 

tt$ = *" 

FOR g = 0 TO 31: FOR f = 0 TO 31 

tt$ = tt$ + HEX$ (POINT (122 + f * xl, 122 + 

ff * x2)) 

NEXT f, g 

OPEN lt$ + " . ccc" FOR OUTPUT AS #1 
PRINT #1, tt$ 

CLOSE 
RETURN 
op2 : 

GOSUB letras 

IF lt$ = "" THEN RETURN 

tt$ = "" 

OPEN lt$ + ".ccc" FOR INPUT AS #1 
INPUT #1, tt$ 

CLOSE 
h = 0 

FOR g = 0 TO 31 
FOR f = 0 TO 31 
h = h + 1 

tt = VAL ( "&H" + MID$ (tt$, h, 1)) 

LINE (121 + f * xl, 121 + g * x2)-(119 + 

nLm H n * Xl ’ 119 + (ff + 1) * X2), tt, BF: 

PSET (502 + f, 122 + g), tt 

NEXT f, g 

RETURN 

op3 : 
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MICRO 
SISTEMAS 
ESTA 
NA 
REDE 




Entdo, o que voce esta 
esperando para u se 
ligar" nesta ideia? 
Contacte o seu BBS 
preferido e verifique se 
ele e filiado a RBT e se 
ja abriu a conferencia 
Micro Sistemas. 
Depois e so curtir e se 
divertir. 



MS agora e a revista 
oficial da rede brasileira 
de teleinformatica - RBT. 
Sao 180 BBS em todo o 
Brasil - do Oiapoque ao 
Chuf. 

Nos BBS filiados a RBT 
voce encontra uma con- 
ferencia dedicada exclu- 
sive mente aos leitores da 
MS, com promogoes, con- 
cursos, programas fonte, 
BBS do mes, etc. 

Al6m disso, voce entra em 
contato direto com as 
feras que fazem a revista. 
O time todo participa 
deste projeto: Clovis 

Duarte, Jose Geraldo, 
Magno Filho e Bob Pixel. 
A coordenagao da con- 
ferencia, e feita pelo 
proprio editor geral da 
revista: Renato Degiovani 





LINE (120, 120) - (440, 408), 15, BF 
FOR f = 120 TO 120 + 32 * xl STEP xl 

LINE (f, 120) -(f, 120 + 32 * x2), 7 

NEXT f 

FOR f = 120 TO 120 + 32 * x2 STEP x2 

LINE (120, f ) - ( 120 + 32 * xl, f ) , 7 

NEXT f 

LINE (502, 122 ) - ( 534 , 154), 15, BF 
LINE (m2, 35) -(m2 + 67, 60), 7, B: RETURN 
op4 : 

LINE (m2, 35)- (m2 + 67, 60), 7, BF 
DRAW "bm290, 52c0s8" 

IF pp = 0 THEN CALL letra("PINTAR") : pp = 

1 ELSE IF pp « 1 THEN CALL letra ( "MUDAR" ) : 
PP = 2 ELSE IF pp = 2 AND j j = 0 THEN CALL 
letra ( "AUTO" ) : pp - 3 ELSE CALL 
letra ("RISCAR") : pp = 0 
DRAW “b6" 

GOTO menu 
op5 : 

FOR g a 0 TO 31 
FOR f - 0 TO 31 

LINE (121 + f * xl, 121 + g * x2)-{119 + 

(f + 1) * Xl, 119 + (g + 1) * x2 ) , 

POINT (533 - g, 122 + f ) , BF 

NEXT f, g 

FOR g a 0 TO 31 

FOR f = 0 TO 31 

PSET (502 + f, 122 + g) , POINT(122 + f * 
xl, 122 + g * x2) 

NEXT £, g 
GOTO menu 
op6 s 

IF lt$ = *" THEN GOSUB letras 
IF lt$ = *" THEN RETURN 

tt$ at *" 

FOR f . 1 TO LEN(nm$) 

SELECT CASE MID$(nm$, f, 1) 

CASE "0" s tt$ - tt$ + CHR$ ( 0 ) 

CASE "1": tt$ at tt$ + CHR$ ( 1 ) 

CASE "2" : tt$ - tt$ + CHR$ ( 2 ) 

CASE "4"s tt$ = tt$ + CHR$ (4 ) 

CASE "A": tt$ = tt$ + CHR$ (32 ) 

CASE *B"s tt$ = tt$ + CHR$ (16) 



CASE *B"s tt$ = tt$ + CHR$(1( 

CASE *C"s tt$ = tt$ + CHR$ (232) 

CASE "D"s tt$ > tt$ + CHR$ (22) 

CASE "E"s tt$ = tt$ + CHR$ (40) 

CASE *F" s tt$ = tt$ + CHR$ ( 64 ) 

CASE *G"s tt$ = tt$ + CHR$ (128) 

END SELECT 
NEXT 

FOR f = 1 TO 24: tt$ = tt$ + 
FOR f =s 1 TO LEN(nm2$) 

SELECT CASE MID$(nm2$, £, 1) 
CASE *0": tt$ = tt$ + CHR$ ( 0 ) 



tt$ + CHR$ ( 0 ) s NEXT 



CASE "G": tt$ = tt$ + CHR$ ( 128 ) 

CASE "H* : tt$ ■ tt$ + CHR$ (192 ) 

CASE *1' s tt$ - tt$ + CHR$ (255 ) 

END SELECT 
NEXT 

FOR g = 31 TO 0 STEP -1 
FOR f a 0 TO 31 STEP 2 
tt2$ = *" 
h = 0 
llnha: 

SELECT CASE POINT(122 + (f + h) * xl, 122 
+ g * X2) 

CASE 0; tt2$ = tt2$ + "0" 

CASE 1: tt2$ as tt2$ + "4" 

CASE 2: tt2$ = tt2$ + "2" 

CASE 3s tt2$ = tt2$ + "6" 

CASE 4: tt2$ = tt2$ + "1" 

CASE 5: tt2$ a tt2$ + “5” 

CASE 6s tt2$ «• tt2$ + "3" 

CASE 7s tt2$ at tt2$ + "8" 

CASE 8s tt2$ = tt2S + "7" 



CASE 9s tt2$ = tt2$ + "C" 

CASE 10 s tt2$ at tt2$ + "A" 

CASE 11s tt2$ = tt2$ + “E" 

CASE 12s tt2$ = tt2$ + "9" 

CASE 13s tt2$ = tt2$ + "D" 

CASE 14s tt2$ = tt2$ + "B" 

CASE 15s tt2$ = tt2$ + "F" 

END SELECT 

IF LEN(tt2$) = 1 THEN h = Is GOTO llnha 
tt$ = tt$ + CHR$ ( VAL { "&H" + tt2$ ) ) 

NEXT f, g 

FOR f = 1 TO 128s tt$ = tt$ + CHR$ ( 0 ) s 
NEXT 

OPEN lt$ + ".dll" FOR OUTPUT AS #1 
PRINT #1, tt$ 

CLOSE 

LINE (m2, 35) -(m2 + 67, 60), 7, Bs RETURN 

RETURN 

op7 s 

CLS 

END 

sobre s 

GET (150, 180)- (385, 250), tela 
LINE (150, 180) - (385, 250), 7, BF 
CALL botao3 (150, 180, 385, 250) 

DRAW 

"s8bm230, 200nr2u5r2br2nr2d5r2br2nr2u5r 

2bd5br3nulbr3u5r2dlgl£ld2nl2b 

r2u5r2d2nl2d3br2r2u312u2r2" 

DRAW 

"Ixn220,210dlfldlflndlelulelulbr2nr2d2nr2d3r2 

br2u5r2d212£3br2r2u312u2r2br2nd5r2d2nl2d3br2 

U5r2d5nl2br5u5ng2hr2bd5nulbr2u5r2d512ulelulelul" 

DRAW 

*llfl55.24(hrai5raTaTTira3Mra*TftfirM21afT-r9nfirq-r»i«irgWTlP 



c 71 Vs *7 ? i Vi cl 



br2u5dlfldlfldlu5br2nr2d5r2br2u3nu2r2nu2d3br2n 

r2u3nr2u2r2br2nr2d2r2d3nl2br5u5f2dlg2br4nr2ti3nr2 



✓ • ifTi f* tT7t TZrT 



5r2d2nl2d3" 

SLEEP 

PUT (150, 180), tela, PSET 
RETURN 

SUB botao (xl, yl, x2, y2, palav2$, lc$) 

LINE (xl, yl) - (x2, y2 ) , 7, BF 

LINE (x2,* yl) - (xl, yl), 15 

LINE -(xl, y2), 15 

LINE (xl + 1, y2)-(x2, y2), 8 

LINE - (x2, yl), 8 

LINE (x2 - 1, yl + l)-(xl + 1, yl + 1), 15 
LINE -(xl + 1, y2 - 1), 15 
LINE (xl + 2, y2 - l)-(x2 - 1, y2 - 1), 8 
LINE - (x2 - 1, yl + 1), 8 

IF INSTR(lc$, "L") <> 0 OR INSTR(lo$, "1") 
<> 0 THEN x3 as xl + 5s GOTO olal 
IF INSTR(lo$, "R") <> 0 OR INSTR(lc$, "r") 
<> 0 THEN X3 = x2 - LEN(palav2$) * 4 - 5s 
GOTO olal 

x3 = INT{ (xl + (x2 - xl) / 2) - 
(LEN(palav2$) / 2) * 4) 
olals 

IF INSTR(lc$, "U") <> 0 OR INSTR(lc$, "u") 

<> 0 THEN y3 = yl + 10s GOTO alol 

IF INSTR(lc$, "D") <> 0 OR INSTR(lc$, "d") 

<> 0 THEN y3 = y2 - 5s GOTO alol 

y3 = INT( (yl + (y2 - yl) / 2) + 2.5) 

alols 

cr = 0 

FOR f = 1 TO 15 

ff$ « RIGHTS (STR$ (f) , LEN ( STR$ ( £ ) 1 - 1) 

IF INSTR(lc$, ff$) <> 0 THEN cr = f 
NEXT 

DRAW "bm" + STR$(x3) + "," + STR$(y3) + 




MICRO SISTEMAS 





0 MELHOR DA 
INFORMATICA 
NACIONAL 



Quern quer ficar "por dentro ” da 
informatica nacional nao pode 
deixar de ler Micro Sistemas. 
Sempre atenta aos acontecimentos 
e tendencias, Micro Sistemas e a 
revista que mais reflete o que 
acontece no mercado brasileiro. 
Feita por brasileiros e para 
brasileiros, Micro Sistemas traz 
sempre em suas paginas os 
assuntos mais quentes do 
momento, programas em diversas 
linguagens, rotinas, livros,j:artas 
doe leitores, etc. 




Mem disso a revista Micro 
Sistemas e a unica publicagao que • 
tem um espago dedicado ao 
Shareware e a mfdia magnetica. 
Publica ainda mensalmente a 
segao Pesquisa onde os leitores 
apontam os programas mais 
usados dentre jogos, aplicativos e 
utiiitarios alem das marcas de 
disquetes mais confiaveis. 

Por tudo isso voce nao pode deixar 
de ler Micro Sistemas. Nao perca 
mais tempo! Garanta mensalmente 
o seu exemplar fazendo uma 
assinatura anual de MICRO 
SISTEMAS por apenas: 



1ANO -RS 45,00 
2 ANOS - R$ 90,00 



Micro 



Enter Press Editors Ltda. 

Lourengo Ribeiro, 124-A 
Rio de Janeiro - RJ 
CEP 21 050-510 
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CALL letra (palav2$) 

END SUB 

SUB botao3 (xl, yl, x2, y2) 

LINE (x2, yl) - (xl, yl), 15 
LINE -(xl, y2) , 15 
LINE (xl + 1, y2)-(x2, y2), 8 
LINE - (x2, yl), 8 

LINE (x2 - 1, yl + l)-(xl +1, yl + 1), 

15 

LINE -(xl + 1, y2 - 1), 15 

LINE (xl + 2, y2 - l)-(x2 - 1, y2 - 1), 8 

LINE - (x2 - 1, yl + 1), 8 

END SUB 

SUB botao4 (xl, yl, x2, y2) 

LINE (x2, yl) - (xl, yl), 8 
LINE -(xl, y2 ) , 8 
LINE (xl, y2)-(x2, y2), 15 
LINE - (x2 , yl), 15 

LINE (x2 - 1, yl + l)-(xl + 1, yl + 1), 8 

LINE -(xl + 1, y2 - 1), 8 

LINE (xl + 2, y2 - l)-(x2 - 1, y2 - 1), 

15 

LINE - (x2 - 1, yl + 1), 15 
END SUB 



SUB letra (palav$) 

FOR f = 1 TO LEN(palav$) 
letras$ = MID$(palav$, f, : 
IF letras$ = "A" THEN DRAW 
"u5r2d2nl2d3br2" 

IF latras$ = "B" THEN DRAW 
"u5r2dlglnllf Id2nl2br2" 

IF letrao$ - "C" THEN DRAW 
"nr2u5r2br2bd5" 

IF letras$ * "D" THEN DRAW 
"u5rlfld3glllbr4" 

IF letraa$ = "E" THEN DRAW 
"U5nr2d2nr2d3r2br2" 

IF letras$ = "F" THEN DRAW 
''U5nr2d2nr2d3br4" 

IF letras$ - "G" THEN DRAW 
"u5nr3d5r3u3nl lbf 2bdl" 

IF letras$ = "H" THEN DRAW 
"u5d2r2nu2d3br2" 

IF letras$ = "I" THEN DRAW 



IF letras$ = "J" THEN DRAW 
IF letras$ = "K" THEN DRAW 
IF letras$ = "L" THEN DRAW 
IF letras$ = "M" THEN DRAW 
IF letras$ = "N" THEN DRAW 
IF letras$ = "0" THEN DRAW 
IF letras$ = "P" THEN DRAW 
-U5r2d2nl2bd3br2* 

IF letras$ = "Q” THEN DRAW 
"U5r2d5nl2nhlnflbr2" 

IF letras$ = "R" THEN DRAW 
"U5r2d212f3br2" 

IF letras$ = "S" THEN DRAW 
*r2u312u2r2bd5br2" 



"brlnu5br2" 

"nu2r2nu5br2" 

"u5d2ne2 f 3br2 " 

"nuSrfbrf" 

"U5f2e2d5br2" 

"u5 f 3nu3d2br2 " 

"U5r2d5nl2br2'' 



IF letras$ - "T" THEN DRAW 
"br lu5nr lnl Ibd5br3 " 

IF letras$ = "U" THEN DRAW ‘’nu5r2nu5br2'' 
IF letras$ = "V" THEN DRAW 
"bu5dlfldlf Indlelulelulbd5br2" 

IF letras$ = "W" THEN DRAW 
"nu5e2 f 2nu5br 2 " 

IF letras$ = "X" THEN DRAW 
"u2e2ulbl2dl£2d2br2" 

IF letras$ = "Y" THEN DRAW 
"br2u3nh2e2br2bd5" 

IF letras$ = "Z" THEN DRAW 

< 'nr2ulelulelulnl2bd5br2' r 

IF letras$ = - " THEN DRAW "br5" 

IF letras$ = "0" THEN DRAW "u5r2d5nl2br2" 
IF letras$ = *1" THEN DRAW "bu3e2d5br2" 

IF letras$ = “2" THEN DRAW 
U bu5r2dlg2d2r2br2" 

IF letras$ = -3" THEN DRAW 
"bu5r2d2nl2d3nl2br2" 

IF letras$ = "4" THEN DRAW 
"bu5d2r2nu2d3br2" 

IF letras$ = *5" THEN DRAW 
"bu5nr2d2rlfldlglllbr4" 

IF letras$ = "6" THEN DRAW 
"bu5nr2d5r2u3nl2br2bd3" 

IF letras$ = "7" THEN DRAW 
*bu5r2dlgldlgldlbr4" 

IF letras$ = "8" THEN DRAW 
"U5r2d2nl2d3nl2br2" 

IF letras$ = "9" THEN DRAW 
"bu3u2r2d2nl2d3nl2br2" 

IF letras$ = "(" THEN DRAW 
"bu5br2g2dlf2br2* 

IF letras$ - -)- THEN DRAW "bu5f2dlg2br4" 
IF letras$ = "+" THEN DRAW 
*bu3r2nu2nd2r2br2bd3" 

IF letras$ = THEN DRAW "bu3r2br2bd3" 
IF letras$ = " : " THEN DRAW 
"bulnr0bu2nr0bd3br2" 

IF letras$ = THEN DRAW "brlnulbr3" 

IF letras$ = " 1 " THEN DRAW 
"bu4ulr2d211dlbd2r0br3" 

NEXT 
END SUB 

SUB telal 

CALL botao3 ( 0 , 0, 639, 100) 

DRAW "bm230, 14c0s8" 

CALL letra ("CRIADOR DE ICONES") 

FOR f = 35 TO 565 STEP 80 
CALL botao3 (£, 20, f + 79, 80) 

NEXT 

DRAW "bm46, 52c0" 

CALL letra ( "SAL VAR ABRIR NOVO 

RISCAR RODAR CRIAR SAIR") 

DRAW "s6" 

END SUB 
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EXCLUSIVAMENTE UVROS DE INFORMATICA 
LIVROS E REVISTAS IMPORTADAS 



• COMPLETA LINHA DE SUPRlMENTOS: • ESTABIUZADOR 

• DISQUETES . FILTRO DE LINHA 

• romWULARI° s • CAIXA COMUTADORA ETC... 

• ETIQUETAS 

• PORTADISQUETES 

• CAPAS 

Av. Preairfante Vargas, 542/301 — Tel.: (021 ) 233-4045 



Despachamos p/todo o Brasil 
Remessas feitas por reembolso Postal 






De uma chance ao sucesso 



Onde estd aquele super-fan t£stico-incnvel programa que voce fez? E aquela rotina maravilhosa? Estao 
guardados numa gaveta? Ningu£m, al6m de voce, conhece esse trabalho? 

Nao perca a oportunidade de mostrar o quanto voce sabe sobre informdtica, programagao, linguagens, 
processadores, etc. 

A revista Micro Sistemas 6 a unica publica$ao nacional que abre espago para trabalho feitos no Brasil. Ela 
6 o unico vefculo editorial que publica colaboragoes dos seus leitores. 

Esta 6 a principal razao do sucesso imbatfvel da revista, afinal, grande parte dos profissionais com projegao 
nacional neste mercado, foram ou ainda sao colaboradores da Micro Sistemas. 

Entao, o que voce estd esperando para fazer parte deste time? 

COLABORACOES: 

Voce pode mandar qualquer tipo de materia (programas, artigos, cronicas, etc). Para que seu trabalho seja 
avaliado por nossa equipe 6 imprescindivel que: 

- os textos, listagens, ilustragoes, desenhos, etc venham em disquete 5 1/4 padrao IBM PC; 

- os programas devem incluir a versao compilada e exemplos (se for o caso); 

- c6pia impressa do texto e das listagens; 

- a utorizasao impressa e assinada, para a publicagao do material; 
curnculo do autor. 

- Envie p/ Enter Press Editora S/A - Rua Lourengo Ribeiro, 124-A - CEP 21050-5 10 - Rio de Janeiro - RJ 

O material enviado para a revista nao serd devolvido. Os autores das mat6rias publicadas 
receberao uma assinatura anual de Micro Sistemas. 



Classic Soft 



{011)876-6418 
Fone/Fax 
(Oil) 875-4644 



RUA JOAO CORDEIRO. 495 - FREGUESIA DO O - SAO PAULO - CAPITAL - CEP 02960-000 



Titulos Diversos 

50 AWARD WINNNIG GAMES 
ALONE IN THE DARK 
AMERICAN SHAREWARE 
BEST OF VIVID (PORN6) 

CHESS MASTER 3000 
CHESS MASTER 4000 
CICA 2000 PROGRAMAS WIN- 
DOWS 

DAY OF TENTACLE 

DR. FONTS (2000 Fontes True Type) 

DR. CLIP ART (Clip Art) 

DRACULA 

EXTRAVAGANZA (4 CD's Shareware) 

EYE OF BEHOLDER 

F-15 STRIKE EAGLE 3 

FANCY FONTS 

GABRIEL KNIGHT 

GIRLS DOIN GIRLS 

INCA 1 E INCA 2 

E MUITO MAIS!!!!!!! 



Diversos 

• PLACASDESOM 

• CD ROM 

• KITS MULTIMIDIA 



FA£A O SEU PEDIDO: 

1- Por telefone, fazendo de- 
posito bancario BRADESCO: 
Ae.117-1 CC: 98741-7 ou 
UNIBANCO: Ag. 137 CC: 
113444-4 em nome de CLAS- 
SIC SOFT LTDA. Ou envie 
cheque nominal no valor do seu 
pedido. 

Adicionar R$ 2,80 de taxa de 
correio na compra de cada CD. 

ATEN DEMOS TODO 
BRASIL!! 



PROMOgOESCD'S 

MEGA RACE R$ 37,00 

MAD DOG McCref R$ 37,00 

MAD DOG 2 R$67^0 

STRIP POKER R$ 31,00 

THE LAWNMOWER R$ 42,00 

TEN PACK (1 0 CD'S) R$ 69,00 

BLACK STONE/WOLF 3D R$ 27,00 
COLORING BOOK R$ 1 9^0 

STAR WARS CHESS R$ 31,00 

MYST R$ 95,00 

REBEL ASSAULT R$51,00 

7TH GUEST R$ 46,20 

SEX VIVID (PORN6) R$ 34,00 

RAQUEL RELEASE R$ 49^0 

THE ANIMALS R$ 26,00 

MIDI MUSIC SHOP R$ 24,50 

MASK (PORNd) R$ 32^0 

IRON HELIX R$ 39^0 

JUST GRANDMA AND ME R$ 33,00 
KYRANDIA R$ 57,00 






Aqui esta outro modulo para 
construgao de paredes, so que 
o tijolo deste e bem menor do 
que o da edigao anterior. Vale 
lembrar que esses modulos 
graficos possuem 32x32 pix- 
els. Na proxima edigao vou 
mandar um modulo para 
construir cercas de tabuas, at 
voces vao vercom quantos paus 
se faz uma pa rede... 

0 Carlos Alfredo, de Macei6, escreveu peiguntando 
como usar as an imagoes publicadas nesta segao. £ fdcil 
Carlinhos: primeiro voce pega um editorgrdfico para Bitmaps 
(coisas como Corel Draw, nem pensar). Tern um monte 
deles no mere ado, inclusive em versdes Shareware. 

At voce, em modo Zoom - que 6 de lei em todos os 
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editores graficos, vai "digitando" os pixels um a um, como 
estao nasfiguras. Depoise so gravarcada umadasfiguras 
de modo que, ao sobrepor uma na outra, produza a ilusao 
de movimento. Essa sobreposigao pode ser feita em 



programagao, usando Basic, Pascal, C, Assembler, ou outra 
coisa semelhante. 

As vezes o proprio editor grafico possui recursos para se 
montar animagoes, slide show, presentations, etc. Voce tern 
que procurer aquele que se adapta melhor ao seu estilo de 
criagao. Garimpar program as deste tipo e tambem um modo 
de se conhecer novos produtos e novas tecnicas. 

0 Paulo Roberto, de Catanduva, mandou uma carta 
dizendo que esta adorando os bitmaps que a gente publica 
e que vai mandar uns que ele fez, para serem publicados. 
Pode mandar Paulo que, tendo espago aqui, agente divulga. 

0 Joao Carlos, de Ribeirao Preto, pede para voltar os 
efeitos graficos e anilises de programas graficos. Anotamos 
suas sugestoes Joao e vamos procurar atende-lo o mais 
breve posstvel, mas lembre-se o espago aqui e limitado e os 
recursos tambem. Aqui nao dd para fazer animagao, nem 
usar cores. Fbi justamente para isso que agente criou o disco 
Bitmap for VGA. La tern um montao de efeitos especiais, 
animagoes, truques e tecnicas e, e claro, bitmaps. 

Bob Pixel 




Cansado de ver figuras esquisitas por aqui? Entao la 
vai mais uma delas: uma especie de capacete 
ambulante. Be e meio esquisito, mas garanto que 
quando voce coloca-lo para “andar” vai achar o maximo. 

M M M 

^ 



Be § pequeno e facil de montar, mas o efeito 6 
arrasador. 

0 pessoal que escreve para ca tern pedido alguns 
efeitos. Vou pesquisar nos meus discos e ver se 
encontro uns tiros, explosdes, blumps, pows, etc, etc, 
etc. Aguardem, neste mesmo bat-espago. 
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Ola pessoal da Micro 
Sistemas! Venho para 
beniza-los pelo excelente tra- 
balho com a revista. Mandei 
esta carta para a MS por que 
tenho umagrande duvida e queria 
que voces me ajudasse: comprei 
urn software ha pouco tempo, o 
MS - C/C++ v7.0, e comprei 
tambem urn livro chamado 
“Salvo pelo C++ de Kris jamsa. 
0 problema e que o livro explica 
como fazer programas em C/ 
C++, mas na compilagao ele o 
explica com o Borland C e at eu 
nao consigo compilar. Com o 
MS C/C++ veio urn editor espe- 
cial para isso mas mesmo assim 
eu nao consigo compilar nada. 
Por isso pego ajuda da MS e dos 
leitores em geral para que me 
explique como compilar e linkar 
programas em MS C/C++ 
utilizando o MS C/C++ ou ate 
mesmo outro editor. 

Rafael Simas Garcia 
R. Antonio Muzzi Sobrinho, 15 



Centro - Franco da Rocha 
SP - CEP 07789000 



V/g Possuo urn 386 DX 40, 
a com 8 Megas, urn moni- 
tor VGA color e uma impressora 
Lazer, e comprei, recentemente, 
um Kit Mult Midia, estou 
entrando de s6cio em uma 
locadora de CD-ROM. Gostaria 
de saber alguns dos melhores 
jogos existentes. 

Se possTvel gostaria que alguem 
me enviasse nome de jogos e de 
que tipoele e. Sou muitochegado 
a jogos de lutas, corridas e 
espaciais. 

Marcelo C. Z. 

Rua Aim. Calheiros da Graga, 68 
Meier - Rio de Janeiro - RJ 

CLUBE DE . 
USUARIOj^-D 



N/I Atraves desta, in- 
^ formamos que nosso 
Info Agao Clube, nao pode dar 
continuidadeasuastarefas. Pois 
os fundadores estao muito ata- 



refados com seus empregos e 
estudos. E por este motivo 
termina suas ativiades. 
Sentimos muito por tal fato, e 
agradecemos por sua compre- 
ensao desde ja. 

Como o clube foi iniciado ha 
pouco tempo nao foi utilizado 
nenhum valor recebido, sendo o 
mesmo desolvido aos propri- 
etaries. 

Info Agao Clube 

R. Paulo Cezar Erthal, 11 
Itaocara - RJ - CEP: 28570000 

Levamos ao vosso co- 
nhecimento, da funda- 
gao do Micro Clube PC, que tern 
por objetivo difundir, trocar e 
ampliar os conhecimentos de 
inform atica, em especial a da 
famflia PC. Os participantes do 
clube tern acesso gratuito a 
acervo aproximadamente de 5 
Gigabytes em softwares de 
inOmeros generos, alem de um 
jornalzinho distribuido 
mensalmente aos associados, 
para maiores informagoes 
contactar: 



Micro Clube PC - MCP 

R. Rui Moans Apoc,312 BI23 - 72 
Sao Paulo -SP- 02842-260 

MSAGRADECE^P 

Sou leitor/ assinante da 
Micro Sistemas ha mais 
de 10 anos e gostaria de enviar 
congratulagdes pela revista 
pedindo que sempre que 
possTvel haja divulgagao das 
possibilidades das BBS”s e 
alem disto, umamaiordinamica 
acerca do maravilhoso OS/2 
Caruaru - Pemanbuco 






( central soft informAtica ltda ' 

RUA BARAO DE ITAPETININGA, 88 CONJ.707-CEP:01042-000-SP-SP 
TEL.:(011)256-2544/PAX:(011)259-8430/BB8:(0 11)871-2859 



7TH Guest - Explore uma mansao mal assombrada em 3D 
Chess Maniac - Xadres em 3D. Dez niveis de xadres 
Commanche - Simulador de helicopteros. lOO missoes 
Rebel Assault - Aventura com efeitos incrlveis 
Indiana jones/Atlantis - Aventura com o heroi 

MXJITO MAIS 

Enciclopedias, CAD, Windows, Musicas 
PROGRAMAS ESPECIAIS PARA ADULTOS 
CONSULTE PREQOS 

^Aceitamos Visa., Credcard, Dinner’s Club 




Se voce possui MODEM 
se ligue na 







BBS 



• Acessso a InterNet 

• 04 CD-ROM c / milhares 
de softwares 

• Cadastramento ON LINE 

• 14.400 BPS 

• Hordrlo 24 horas 

• Novo telefone 

(Oil) 871-2859 




Caro Amigo Clients 



Deixamos de apresentar neste mes o nosso CataLogo. 
Para voce Jazer sea pedido, basta consuLtar as 
edigoes anteriores de Micro Sistemas. Se preferir, 
nos mande um disquete HD ou R$ 1,50 para que possamos 
remeter o nosso CataLogo atnal izacLo, alem de cantor, como 
sempre, com o nosso atendimento de l a Classe. 

Grata*. 






So sou 
problems e a 
portabilidade 
do programas 
oxocutavots o 
arqulvos do 
dados... 
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E o unico caminho! 



STANDARD MUNDIAL 

- 255 chaves de acesso direto 

- Criagao de Pop-up Windows 

- Leitura "Up & Down” de arquivos 

- Estrutura Client-Sever LAN e RDBMS 

- Mais de 2.000.000 Sistemas em uso 

RM/PANELS 

Gerador Automatico de Telas 
Sistema WYS/WYG 

RM/COMPANION 

Gerador Automatico de Relatorios 

- Gera Programa Fonte 

- Gera Querys ao Usuario Rnal 

RM/GRAPHS 

Gera Graficos de negocios 

- 2D/3D 

- Definigao Automatica de Cores 

RM/CO« 

Ambiente de Desenvolvimento, com editor Janela multipla 
e Desenho Animado 

RM/TOOLKIT 

Familia de Utilitarios 

- Mouse, Modem, Sistema Operacional, etc. 

RM/plusDB 

Interface Transparente com Banco de Dados Relacionais 

- Informix*, Oracle*, Progress*, etc. 

Mantem o Padrao dos Sistemas Abertos reduzindo seus 
tempos de programagao em 80% 

DESENVOLVIMENTO DE APUCAQOES 

Quando voce precisa de ferramentas para o desenvolvimento 
de aplicagdes superiores ao mercado, capacidade & 
funcionalidade & solugao do RDBMS & superior a 4GE RM/ 
COBOL & TOOL’S sao incomparaveis. 

Ferramentas de Desenvolvimento&Superfides de Trabalho 

0 RM/Cobol possui um poderosode ferramentas integradas 
para definir e construir aplicagoes tais como: Menus Ring- 
Style, Pop-Down & Pull-Down, e ainda Dialog Boxes, Forms 
e Objetos para desenvolvimento de Aplicagoes RM/Cobol, 
oferece maior capacidade e flexibilidade para o 



desenvolvimento, reduzindo o tempo de manutengao e 
possibilitando uma consistente interface com o usuario. 
Superficies de Trabalho sao interfaces funcionais que 
permitem definir regras de integridade e de negocios. 
Somente o RM/Cobol possui um desenho de interface 
altamente visual e amigavel, possibilitando umafantastica 
melhoria na produtividade do desenvolvimento de telas, 
estando bem acima dos metodos de codigos convecionais. 
0 Help on line esta sempre presente para consulta. 

Dlclonarlo de Dados 

0 Dicionario de Dados do RM/Cobol e um repositario 
central para definir toda e qualquer informagao usada na 
tela como: Borda, Lay-Out, Cores, Formato dos campos, 
Valiagoes Logicas, Help on line, Mensagens de Ajuda e 
Erro, Prompt de cores campo a campo, e mais. Desta forma 
voce ganha um controle de integridade de dados altamente 
eficiente, com vantagem adicional de uma reduzida 
codificagao. 

Abertura para outros amblentes 

0 RM/Cobol pode acessar outros Bancos de Dados como: 
INFROMIX, ORACLE e no final deste ano PROGRESS, 
INGRESS, pode acesar outras linguagens, atraves de 
“CALL” nas subrotinas. 0 "APLICATI0N PROGRAM INTER- 
FACE” permite criar subrotinas novas fungoes escritas em 
"C” e Assembler, o que possibilita inclusive acesso a outras 
bases de dados. 



Representante para Brasil, Argentina, Paragual e Urugual 

ENDEREQO NO BRASIL 

Av. BRIG. FARIA LIMA, 613 - 8 fl ANDAR CJ 84 
01451-000 - SAO PAULO - SP 
TEL/FAX: (Oil) 829-7891 

ENDEREQO NA ARGENTINA 

Av. CORRIENTES, 821 - 6 s ANDAR (1043) 

BUENOS AIRES 

TEL.: (541) 448-9426/7/8 - FAX: (541) 322-5240 
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PESQUISA MS 



SUA OPINIAO VALE DUAS ASSINA TURAS 

Voce da a sua opiniao sobre os melhores programas de computador 
do mercado e concorre automaticamente a duas assinaturas anuais da 
primeira revista bmsileira de microcomputadores. 



PR0CE5SAD0R DE TEXTO 

MS Word 210/1950 

Wordstar 105/1165 

Write 20/170 

RedatorPC 10/160 

WordPerfect 20/130 

Carta Certa 0/50 

Fdcil 0/30 

Chiwriter 0/30 

Unitexto 0/30 

Panglos 0/20 

Bestword 0/10 



SISTEMA OPERACIONAL 


DOS 


450/3460 


Windows 


180/1365 


0S2 


0/30 


Unix 


0/30 


! ' 



PLAMLHA 

Lotus 1-2-3 230/1770 

QuatroPro 180/1110 

Excel 20/430 

Works 0/60 

Acess 0/50 



ANTI-ViRUS 

Viruscan 


180/1560 


NAV 


20/475 


CPAV 


10/230 


MSAV 


0/130 


TNT 


0/40 


Cure 


0/10 


TBAV 


0/10 



CAD /EDITOR 3D 

Autocad 


50/670 


3D Studio 


20/210 


Professional Cad .... 


.0/40 


Microstation 


.0/40 


3D Image 


.0/30 


Ted 3D 


.0/10 



UNGUAGEM 

Basic 


280/860 


Visual Basic 


150/690 


Clipper 


50/560 


C 


10/250 


Pascal 


20/210 


Cobol 


10/140 


Assembler 


20/110 


Dbase 


0/50 



COMPACTADOR 




ARJ 


.. 170/1440 


PKZip 


.. 160/1370 


LHA 


.. 10/130 


ICE 


.. 0/60 


Stacker 


.. 0/50 



UT1LITARIOS 




PCTnnls 


150/1405 


Norton 


180/1170 


XTGold 


50/280 


Sidekick 


10/120 


Becker Tools 


0/70 


Foxy Tools 


0/60 



DESTAQUE ESPECIAL 

Modplay 0/45 



EDITOR GRARCO 

Harvard Graphics 10/260 

Banner 20/240 

Graphos III 30/185 

Paint Brush ....0/120 

Autodesk Animator... 0/70 

Dr Genius 30/70 

Print Master 0/40 

Power Point 10/40 

Print Shop 10/40 



DESKTOP PUBLISHING 


Corel Draw 


... 100/1010 


PageMaker 


... 95/690 


Ventura 


... 20/300 


Envision Publish ... 


... 10/70 


Fantavision 


... 0/60 


MS Publisher 


... 0/40 



MELHOR 
MmeR .... 


P10R 

200/2070 Nashua... 


. 210/2000 


Vobatin . 


.. 70/620 


Vobatin .. 


. 90/620 


Sony 


..30/230 


VAT 


. 30/250 


Dyson .... 


.. 10/120 


Precision. 


. 30/220 


Nashua .. 


..0/90 


Basf 


. 20/140 


TDK 


.. 10/80 


Kao 


. 10/90 


3M 


.. 0/60 


Memorex 


. 20/80 


JVC 


..0/50 


ABC System* 10/70 


Basf 


.. 0/50 


Sony 


. 0/60 


Kao 


..0/50 


Teck 


. 10/30 






3M 


. 10/20 



JOGOS 

Prince of Persia... 
Tetris 


40/645 

50/430 


Wolfestein 3D 


90/450 


X-Wing 


50/270 


Prince of Persia II 


30/255 


Chess 


60/215 


Doom 


70/200 


F15 


30/160 


GP 


10/150 


F19 


30/115 


Indy 500 


30/110 


World Circuit 


10/105 


Angral 


10/95 


Rlncknut 


10/95 


Stunts 


10/95 


Free Cell 


0/90 


Chessmaster 


0/90 


Out of this World. 


10/85 


Sim City 


10/80 


Alone in the dark 


10/80 


Amazdnia 


30/80 


Xingu 


70/80 


Indiana Jones 


10/70 


7Th Guest 


20/70 


Monkey Island .... 


20/70 


Battle Chess 


0/60 


Arkanoid 


0/60 


Loom 


0/60 


Sokoban 


10/55 


Cyrus 


0/50 


Lemmings 


..... 10/50 


Carmem San Diego .. 10/50 


Cides 


10/40 


Golden Axe 


20/40 


Wing Commander 


0/35 


Karateka 


0/35 


Simpsons 


0/30 



Nautilus 

Sim Farm 



...20/30 

... 0/10 



Responda Us questdes de acordo com a sua preferencia. 
No caso de usar mais de um programa de mesma classe, 
escolha apenas aquele quejulga ser o mais adequado para 
o seu uso. Nao importa a origem do software. Escreva de 
forma clara e legivel o nome do programa. Remeta para 
ENTER PRESS Editora Ltda - Rua Washington Luis, 9 / 402 
- Rio de Janeiro/RJ - CEP 20230-900 

Nome: 

Endere$o: 

Cidade: 

CEP: 



Processador de texto: 
Planilha eletronica: 



Linguagem de program a^ao: 
Utility rios: 



Sistema OperacionaL. 

Antivirus: 

Compactador: 

Editor Grdfico: 



,UF:. 



.Video:. 



ASSINATURA ANUAL 

Antonio Jos6 Braga N6bua - Terezdpolis ■ 
Gildiny Moura Batbora - Terezinha - PI 



Desktop Publishing:. 

Cad/editoies 3D: 

Jogo 1: 

Jogo 2: 

Outro: 



RJ 



Melhor disquete: . 
Pior disquete: 
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O sistema de BBS mais avangado do planeta, agora no Brasil para voce ! ! 



Esquega tudo o que voce ja viu sobre BBS, e conhega o 
PwUComtmtUoa, um sistema de BBS super avangado uti- 
lizando o protocolo gr^fico de 4 a geragao RIPscrip, que 
alem de melhorara velocidade de transmissao, permite a 
visualizagao de graficos com alta-resolugao no estilo do 
Prodigy e America Online. Voce nao precisa mais decorar 
nenhum comando, apenas clicar com seu mouse. 



Rodando 
The Major BBS, o 
gerenciador de BBS 
mais avangado do 
planeta. 




Uma completa Biblioteca de Arquivos contendo uma 
grande variedade de programas demos e shareware nas 
mais variadas categorias, Jogos, Utilitarios, Fontes, Anti- 
Virus, Editores, Desktop, Educagao, Multimidia, 
Comunicagao, ProgramagSo, Arquivos de Som, e tudo o 
que voce imaginar para DOS e WINDOWS. Tambdm uma 
ampla Biblioteca de Imagens Digitalizadas, dos mais 
diversos assuntos, inclusive fotos XXX-Rated. 




... Biblioteca de Arquivos 
de facil utiiizagao, com 
pesquisas por palavras 
chave e marcagao para 
download posterior. 



Um avangado sistema de Correio Eletronico (E-mail), com 
su porte para envio de Arquivos Anexados, Copias 
Carbono, Listas de Distribuigao, Aviso de Recebimento, 
Editor de Texto Full Screen com todos os comandos no 
seu video atraves de botdes. Teleconferencias Online 
para voce baterpapo com outros usuario, expandindo seu 
conhecimento e ampliando o seu relacionamento com 
pessoas que tenham o mesmo interesse. 



... com uma interface 
totalmente grafica, com 
suporte para mouse, 
facilitando o seu acesso 
sem a necessidade de 
decorar comandos 
complicados. 




0 SFIOPPING OnLine, onde voce pode adquirir produtos 
e servigos dos mais variados tipos com descontos, sem 
precisa r sair da sua casa ou do seu escritorio. Atraves do 
seu proprio computador, voce faz a cotagao de pregos, 
escolhe onde deseja comprar, a forma de pagamento e 
o metodo de entrega. Voce recebe o produto rapidamente 
no seu enderego, sem burocracia, filas e com toda a 
comodidade. 

Voce ainda tern a sua disposigao uma Central para DistribuigSo de FAX, pode participar de Concursos com 
vcirios premios, servigo de Boletins & Novidades e muito mais . . . 

lP'«IIK®na€Cli®ni wn * tterphg 

BBS: (Oil) 440-7344 e 440-7204 ~ 

Caixa Postal 108 - Santo Andre - SP - 09001-970 - Tel.: (Oil) 412-7610 - Fax: (Oil) 444-1167 




Shopping OnLine, 
aqui voce pode comprar 
diversos produtos, 
a pregos reduzidos, 
num piscar de olhos. 







AMIGA - MSX - PC - APPLE - ZX SPECTRUM - TRS COLOR 



-Venda de softwares diversos. 

(Jogos, Aplicativos, Uti[itarios, Sharewares, etc...) 
-Venaa de CD-ROMS. (Ultimos langamentos.) 
-Compra, Venda e Troca de equipamentos. 
-Suprimento para Infomatica. 

-Suporte tecnico. 

(Resolvemos o problema do seu computador 
seja ele qual for!) 

-Manutengao de computadores e perifericos. 
-Animagoes graficas. 

(Produzimos animagoes por encomenda 
para as linhas PC, AMIGA e MSX 2.0) 
-Diaqramagao. 

(Traoalhos escolares, Montagem de anuncios 
para revistas, Panfletos, ect...) 

-Desenvolvimento de sistemas. 

(Ctrl Estoque, Cad. Cliente, Ctrl Locadora, 

Ctrl Transportadora, etc...) 



# Gravamos jogos para 
ZX Spectrum e MSX em 
fita K7. 



Possuimos 
mais de 70.000 
tftulos de 
Sharewares 
para PC. 




R. Barao de Itapetininga, 297 - 9o andar - CJ.907 
Centro - Sao Paulo - SP - Cep: 01042-000 
Tel.:(01 1) 982-1396 - Proximo ao metro Republica. 



